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

svn: r16286

Browse Source
This commit is contained in:
Robby Findler 2009-10-08 21:12:08 +00:00
parent 820b63d4a7
commit 1b6c879736
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -30,7 +30,7 @@
(parameterize ([read-accept-reader #t]) (parameterize ([read-accept-reader #t])
(call-with-input-file path read)))]) (call-with-input-file path read)))])
(match sexp (match sexp
[`(module ,name ,(? valid-key-bindings-lang?) [`(module ,name ,(? valid-keybindings-lang?)
,@(x ...)) ,@(x ...))
(let ([km (dynamic-require spec '#%keymap)]) (let ([km (dynamic-require spec '#%keymap)])
(hash-set! user-keybindings-files spec km) (hash-set! user-keybindings-files spec km)