From cde399ded9d2493062d38da268be47af6c436aab Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Mon, 11 May 2026 11:51:56 +0200
Subject: [PATCH] small bug in example

---
 scrbl/define-return.scrbl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scrbl/define-return.scrbl b/scrbl/define-return.scrbl
index 2057e09..8d79c57 100644
--- a/scrbl/define-return.scrbl
+++ b/scrbl/define-return.scrbl
@@ -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))))