fix car of null part of PR 8040

svn: r3010
2006-05-22 20:20:49 +00:00 · 2006-05-22 20:20:49 +00:00 · cc5a739b9b
commit cc5a739b9b
parent 145ed235c6
1 changed files with 1 additions and 1 deletions
--- a/collects/games/spider/spider.ss
+++ b/collects/games/spider/spider.ss
@ -405,7 +405,7 @@
 			      #f
 			      (lambda ()
 				(when (and (null? (vector-ref stacks i))
-					   selected)
+					   (pair? selected))
 				  (move-to-stack selected i)))))
 	  (loop (add1 i))))