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

.

Browse Source 
original commit: bd21a7afa1018c96f19371dc7efde14f9741094d
This commit is contained in:
Matthew Flatt 2001-10-05 16:18:00 +00:00
parent e1f1c35db6
commit 3f4736df6a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/mred.ss
View File

@ -5729,9 +5729,9 @@
(when (and wheel-step (when (and wheel-step
(not (and (integer? wheel-step) (not (and (integer? wheel-step)
(exact? wheel-step) (exact? wheel-step)
(<= 1 wheel-step 1000)))) (<= 1 wheel-step 10000))))
(raise-type-error (who->name cwho) (raise-type-error (who->name cwho)
"#f or exact integer in [1,1000]" "#f or exact integer in [1,10000]"
wheel-step))) wheel-step)))
(define (check-fraction who x) (define (check-fraction who x)