fix number recognition bug reported by Will Byrd

mfelleisen · Jun 20, 2019 · 13f0039 · 13f0039
1 parent c83ca4c
commit 13f0039
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/task-2.rkt b/task-2.rkt
@@ -9,7 +9,12 @@
 (define ((callback setter) field _evt)
   (send field set-field-background (make-object color% "white"))
   (define field:num (string->number (send field get-value)))
-  (if field:num (setter field:num) (send field set-field-background (make-object color% "red"))))
+  (cond
+    [(and field:num (rational? field:num))
+     (define inexact-n (* #i1.0 field:num))
+     (setter inexact-n)
+     (send field set-value (~r inexact-n #:precision 4))]
+    [else (send field set-field-background (make-object color% "red"))]))
 
 (define-syntax-rule (flow *from --> *to to-field)
   (λ (x)