limit font sizes to exact integers in [0,255]

2015-06-26 10:47:03 -05:00 · 2015-06-26 10:47:03 -05:00 · b528e0e682
commit b528e0e682
parent a2152d5666
1 changed files with 2 additions and 2 deletions
--- a/gui-lib/framework/private/main.rkt
+++ b/gui-lib/framework/private/main.rkt
@ -242,10 +242,10 @@
   (non-empty-listof (list/c exact-nonnegative-integer? 
                             exact-nonnegative-integer?))
   ;; the font size for that configuration
-   exact-nonnegative-integer?
+   (integer-in 0 255)
   #:flat? #t)
  ;; default font size, when none of the configs above apply
-  exact-nonnegative-integer?
+  (integer-in 0 255)
  #:flat? #t))

 (preferences:set-un/marshall