fixed PR 8137

svn: r3433
2006-06-22 03:01:43 +00:00 · 2006-06-22 03:01:43 +00:00 · 257ceb7449
commit 257ceb7449
parent d74f28ace8
1 changed files with 2 additions and 1 deletions
--- a/collects/framework/private/keymap.ss
+++ b/collects/framework/private/keymap.ss
@ -56,7 +56,8 @@
                     parent-keymap))
            (let c-loop ([child-keymaps (send parent-keymap get-chained-keymaps)])
              (cond
-                [(null? child-keymaps) null]
+                [(null? child-keymaps) 
+                 (void)]
                [else
                 (let ([child-keymap (car child-keymaps)])
                   (cond