mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-23 20:15:05 +02:00
Added output
This commit is contained in:
parent
af2e836e16
commit
4db60ab42f
1 changed files with 2 additions and 2 deletions
4
test.scm
4
test.scm
|
@ -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))))
|
||||
|
|
Loading…
Add table
Reference in a new issue