Suppress unneeded write

This commit is contained in:
Justin Ethier 2015-12-24 02:21:16 -05:00
parent 1f21b4688a
commit 680149a066

View file

@ -25,7 +25,7 @@
;(write tmp)
(cond
((> (length tmp) 1000)
(write "resetting tmp")
;(write "resetting tmp")
(set! tmp '()))
(else #f))
(loop))))