fixed PR 8137

svn: r3433 original commit: 257ceb7449df54437686cf3e008c1ac2add62587
2006-06-22 03:01:43 +00:00 · 2006-06-22 03:01:43 +00:00 · e69befce41
commit e69befce41
parent 7386f912a6
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