suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed PR 8137

Browse Source 
svn: r3433
This commit is contained in:
Robby Findler 2006-06-22 03:01:43 +00:00
parent d74f28ace8
commit 257ceb7449
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/private/keymap.ss
View File

@ -56,7 +56,8 @@
parent-keymap)) parent-keymap))
(let c-loop ([child-keymaps (send parent-keymap get-chained-keymaps)]) (let c-loop ([child-keymaps (send parent-keymap get-chained-keymaps)])
(cond (cond
[(null? child-keymaps) null] [(null? child-keymaps)
(void)]
[else [else
(let ([child-keymap (car child-keymaps)]) (let ([child-keymap (car child-keymaps)])
(cond (cond