.

original commit: 7f6071598639bd7bbec6695a435eab4ef81fb9b0
1999-05-24 18:53:27 +00:00 · 1999-05-24 18:53:27 +00:00 · 6a8eb44022
commit 6a8eb44022
parent 0830eca7de
1 changed files with 3 additions and 2 deletions
--- a/collects/framework/keymap.ss
+++ b/collects/framework/keymap.ss
@ -416,8 +416,9 @@
 			       (lambda ()
 				 (send edit end-edit-sequence))))
 			    (let ([k (send event get-key-code)])
-			      (if (<= (char->integer #\0) k (char->integer #\9))
-				  (set! n (+ (* n 10) (- k (char->integer #\0))))
+			      (if (and (char? k) (char<=? #\0 k #\9))
+				  (set! n (+ (* n 10) (- (char->integer k)
+							 (char->integer #\0))))
 				  (begin
 				    (done)
 				    (dynamic-wind