small bug in example

2026-05-11 11:51:56 +02:00
parent a44e66d0a0
commit cde399ded9
1 changed files with 2 additions and 2 deletions
@@ -44,11 +44,11 @@ definition early.

@racketblock[
 (define/return (status->symbol code)
+  (unless (number? code)
+    (return 'not-a-number))
  (when (= code 0) (return 'ok))
  (when (< code 0) (return 'failed))
  (when (> code 5) (return 'out-of-range))
-  (unless (number? code)
-    (return 'not-a-number))
  (cond
    ((= code 1) 'normal)
    ((>= code 2) (string->symbol (format "code-~a" (* code code))))