How to convert given words in a block into words

Question

I want to convert a block from block: [ a: 1 b: 2 ] to [a 1 b 2] . Is there an easier way than this?

map-each word block [ either set-word? word [ to-word word ] [ word ] ]

Answer 1

Saving simplicity:

 >> block: [a: 1 b: 2] == [a: 1 b: 2] >> forskip block 2 [block/1: to word! block/1] == b >> block == [a 1 b 2] 

Answer 2

I had the same problem, so I wrote this function. Maybe there is a simpler solution that I don't know about.

 flat-body-of: function [ "Change all set-words to words" object [object! map!] ][ parse body: body-of object [ any [ change [set key set-word! (key: to word! key)] key | skip ] ] body ] 

Answer 3

New blocks have been created, but they are brief enough. For famous set-word/value pairs:

 collect [foreach [word val] block [keep to word! word keep val]] 

Otherwise, you can use "as in your case:

 collect [foreach val block [keep either set-word? val [to word! val][val]]] 

I would suggest that your map-each in itself is pretty concise.

Answer 4

I like the DocKimbel answer, but for the sake of another alternative ...

 for i 1 length? block 2 [poke block i to word! pick block i] 

Answer 5

From Graham Chiu:

In R2, you can do this:

 >> to block! form [ a: 1 b: 2 c: 3] == [a 1 b 2 c 3] 

Answer 6

Or using PARSE:

 block: [ a: 1 b: 2 ] parse block [some [m: set-word! (change m to-word first m) any-type!]]