[REBOL] Re: [refactoring s-c?]
From: g:santilli:tiscalinet:it at: 17-Mar-2002 15:38
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 <[g--santilli--tiscalinet--it]> -- REBOL Programmer
Amigan -- AGI L'Aquila -- REB: http://web.tiscali.it/rebol/index.r