fixed a bug related to change to for-each

svn: r4173
2006-08-28 18:40:21 +00:00 · 2006-08-28 18:40:21 +00:00 · 7199a06352
commit 7199a06352
parent da43f0e6a6
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)