fix car of null part of PR 8040

svn: r3010
This commit is contained in:
Matthew Flatt 2006-05-22 20:20:49 +00:00
parent 145ed235c6
commit cc5a739b9b

View File

@ -405,7 +405,7 @@
#f #f
(lambda () (lambda ()
(when (and (null? (vector-ref stacks i)) (when (and (null? (vector-ref stacks i))
selected) (pair? selected))
(move-to-stack selected i))))) (move-to-stack selected i)))))
(loop (add1 i)))) (loop (add1 i))))