From 1c372e66f91d56c3781707af4d1e94022347b1ac Mon Sep 17 00:00:00 2001 From: tomsmeding Date: Thu, 28 Nov 2019 22:32:59 +0100 Subject: Remove stdlib.lisp dep in mutual-recursion.lisp --- tests/mutual-recursion.lisp | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'tests/mutual-recursion.lisp') 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)) -- cgit v1.2.3-54-g00ecf