Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 04:55:04 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added output

Browse source
This commit is contained in:
Justin Ethier 2016-01-15 03:10:22 -05:00
parent af2e836e16
commit 4db60ab42f
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test.scm
View file

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