Re: [ikarus-users] (xitomatl stack-lang)

[leppie]

----- Original Message ----- 
From: "Derick Eddington" <derick.edding...@gmail.com>

(define fib
 (Q dup 1 <= (Q drop 1) (Q dup 1 - fib swap 2 - fib +) if))

It might be an idea to use QUOTE here. Then the expression can be:

'(dup 1 <= '(drop 1) '(dup 1 - fib swap 2 - fib) if)

Just an idea  :o)

leppie