diff options
author | tomsmeding <tom.smeding@gmail.com> | 2019-11-28 22:32:59 +0100 |
---|---|---|
committer | tomsmeding <tom.smeding@gmail.com> | 2019-11-28 22:33:38 +0100 |
commit | 1c372e66f91d56c3781707af4d1e94022347b1ac (patch) | |
tree | 86a02b434970bff68a7772e70181d51d2ce327b7 /tests/mutual-recursion.lisp | |
parent | ef5af7d9ab8f508967a4f22cc8559c15ee131ced (diff) |
Remove stdlib.lisp dep in mutual-recursion.lisp
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)) |