Hi Ladislav,

On Friday, March 15, 2002, 7:15:31 PM, you wrote:

Reading your later posts, and thinking about it...

LM>     nonsame: func [
LM>         {
LM>             create a word equal to the given word
LM>             but not the same as the given word
LM>         }
LM>         word [word!] {the given word}
LM>     ] [
LM>         first use reduce [word] reduce [
LM>             reduce [word]
LM>         ]
LM>     ]

what about:

    nonsame: func [
        {
            create a word equal to the given word
            but not the same as the given word
        }
        word [word!] {the given word}
    ] [
        use reduce [word] reduce [
            to-lit-word word
        ]
    ]

It seems to work correctly for me. (Not that is much clearer, or
better in any way --- just a different approach.)

Regards,
   Gabriele.
-- 
Gabriele Santilli <[EMAIL PROTECTED]>  --  REBOL Programmer
Amigan -- AGI L'Aquila -- REB: http://web.tiscali.it/rebol/index.r

-- 
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the 
subject, without the quotes.

Reply via email to