Added output

This commit is contained in:
Justin Ethier 2016-01-15 03:10:22 -05:00
parent af2e836e16
commit 4db60ab42f

View file

@ -28,10 +28,10 @@
;(write 'a)
(letrec ((loop (lambda ()
(set! tmp (cons "cons" tmp))
;(write tmp)
(write tmp)
(cond
((> (length tmp) 1000)
;(write "resetting tmp")
(write "resetting tmp")
(set! tmp '()))
(else #f))
(loop))))