svn: r16286

original commit: 1b6c879736494b677912d4e4a5cc7cdeb5459043
This commit is contained in:
Robby Findler 2009-10-08 21:12:08 +00:00
parent b6e712718d
commit 0b172f2272

View File

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