hans/define-return
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

small bug in example

Browse Source
This commit is contained in:
Hans Dijkema
2026-05-11 11:51:56 +02:00
parent a44e66d0a0
commit cde399ded9
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scrbl/define-return.scrbl
+2 -2
View File
@@ -44,11 +44,11 @@ definition early.
@racketblock[ @racketblock[
(define/return (status->symbol code) (define/return (status->symbol code)
(unless (number? code)
(return 'not-a-number))
(when (= code 0) (return 'ok)) (when (= code 0) (return 'ok))
(when (< code 0) (return 'failed)) (when (< code 0) (return 'failed))
(when (> code 5) (return 'out-of-range)) (when (> code 5) (return 'out-of-range))
(unless (number? code)
(return 'not-a-number))
(cond (cond
((= code 1) 'normal) ((= code 1) 'normal)
((>= code 2) (string->symbol (format "code-~a" (* code code)))) ((>= code 2) (string->symbol (format "code-~a" (* code code))))