From f8a870c48886e8828155d05b0da6b7868344ba6a Mon Sep 17 00:00:00 2001 From: Teddy Date: Fri, 9 Aug 2013 17:58:48 +0800 Subject: added `and` operator --- robust_test.scm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'robust_test.scm') diff --git a/robust_test.scm b/robust_test.scm index 9f5c798..0e989b8 100644 --- a/robust_test.scm +++ b/robust_test.scm @@ -166,3 +166,9 @@ t (lambda () '(1 2 3)) (lambda () 1 2 3) (lambda #() 1) + +(define src + '(define g (lambda (x) (if (= x 5) 0 ((lambda () (display x) (g (+ x 1)))))))) +src +(eval src) +(eval '(g 0)) -- cgit v1.2.3