diff options
Diffstat (limited to 'tests/mutual-recursion.lisp')
-rw-r--r-- | tests/mutual-recursion.lisp | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/tests/mutual-recursion.lisp b/tests/mutual-recursion.lisp index 4c054ea..02aa1bf 100644 --- a/tests/mutual-recursion.lisp +++ b/tests/mutual-recursion.lisp @@ -1,15 +1,13 @@ -#include "stdlib.lisp" - (declare g) (define f (n) (do - (print (concat "f " (number->string n))) - (if (>= n 100) n (g (* 2 n))))) + (print "f" n) + (if (<= 100 n) n (g (* 2 n))))) (define g (n) (do - (print (concat "g " (number->string n))) - (if (>= n 100) n (f (+ n 1))))) + (print "g" n) + (if (<= 100 n) n (f (+ n 1))))) (print (f 1)) |