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

added error checking for use in drdr

Browse Source
This commit is contained in:
Robby Findler 2010-06-17 15:53:49 -05:00
parent dc8fc24e89
commit 87f6a6bb1e
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/drracket/private/language-configuration.rkt
View File

@ -27,7 +27,8 @@
[(meta) "meta-"] [(meta) "meta-"]
[(control) "ctl-"] [(control) "ctl-"]
[(shift) "shift-"] [(shift) "shift-"]
[(option) "opt-"])) [(option) "opt-"]
[else (error 'language-configuration.rkt "unknown result from get-default-shortcut-prefix: ~s" x)]))
shortcut-prefix))]) shortcut-prefix))])
(define (mouse-event-uses-shortcut-prefix? evt) (define (mouse-event-uses-shortcut-prefix? evt)
(andmap (λ (prefix) (andmap (λ (prefix)