bugfix

svn: r7010 original commit: 1af006c2467a4b2fc5c6e8cc954d96d463118c78
2007-08-03 07:15:04 +00:00 · 2007-08-03 07:15:04 +00:00 · 95524eb053
commit 95524eb053
parent c5cf3fb05a
1 changed files with 2 additions and 2 deletions
--- a/collects/framework/private/keymap.ss
+++ b/collects/framework/private/keymap.ss
@ -130,8 +130,8 @@
           (unless (hash-table-get table keyname (λ () #f))
             (cond
               [(and (eq? (system-type) 'windows)
-                     (or (regexp-match #rx"a:c" keyname)
-                         (regexp-match #rx"c:m" keyname)))
+                     (or (regexp-match #rx"a:c" (format "~a" keyname))
+                         (regexp-match #rx"c:m" (format "~a" keyname))))
                (void) ;; don't show these keybindigns -- they don't work
                ]
               [else