fix car of null part of PR 8040
svn: r3010
This commit is contained in:
parent
145ed235c6
commit
cc5a739b9b
|
@ -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))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user