fixed a bug related to change to for-each

svn: r4173 original commit: 7199a06352a210a07d9cead83b54359f294db416
2006-08-28 18:40:21 +00:00 · 2006-08-28 18:40:21 +00:00 · 9839bcbf91
commit 9839bcbf91
parent 6041d9a58f
1 changed files with 2 additions and 1 deletions
--- a/collects/framework/private/handler.ss
+++ b/collects/framework/private/handler.ss
@ -238,7 +238,8 @@
                                   "&&")
                                  200))
                          (callback (λ (x y) (open-recent-list-item recent-list-item))))))
-                    recently-opened-files)))
+                    recently-opened-files)
+          (void)))

      ;; open-recent-list-item : recent-list-item -> void
      (define (open-recent-list-item recent-list-item)