diff options
Diffstat (limited to 'robust_test.scm')
-rw-r--r-- | robust_test.scm | 6 |
1 files changed, 6 insertions, 0 deletions
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)) |