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 ++++------ tests/mutual-recursion.out | 24 ++++++++++++------------ 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 -- cgit v1.2.3-54-g00ecf