Good job Elan! Yes, the bug is in compose. Yo Jeff! ( Jim points his
finger... ;-)
At 02:39 PM 1/25/00 -0800, you wrote:
>Hi Steve,
>
>if you look at the source of build-tag, you will find that the culprit is
>compose:
>
> >> source build-tag
>build-tag: func [
> "Generates a tag from a composed block."
> blk [block!] "Block of parens to evaluate and other data"
> /local m out
>][
> blk: compose blk
> out: copy ""
> foreach item blk [
> append out rejoin either not word? item [[{="} item {"}]
> ] [[" " item]
> ]
> ]
> to-tag trim out
>]
>
> >> a: "not me"
>== "not me"
> >> b: "me"
>== "me"
> >> next [(a) (b)]
>== [(b)]
> >> compose next [(a) (b)]
>== ["not me" "me"]
>
>
>
>;- Elan >> [: - )]
