Remove stdlib.lisp dep in mutual-recursion.lisp

2 files changed, 16 insertions, 18 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))
diff --git a/tests/mutual-recursion.out b/tests/mutual-recursion.out
index 7e2e305..5ce65bc 100644
--- a/tests/mutual-recursion.out
+++ b/tests/mutual-recursion.out
@@ -1,13 +1,13 @@
-f 1
-g 2
-f 3
-g 6
-f 7
-g 14
-f 15
-g 30
-f 31
-g 62
-f 63
-g 126
+f, 1
+g, 2
+f, 3
+g, 6
+f, 7
+g, 14
+f, 15
+g, 30
+f, 31
+g, 62
+f, 63
+g, 126
 126