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

changed keywords to => ? ~ do

Browse Source
This commit is contained in:
Hans Dijkema
2026-05-12 09:27:18 +02:00
parent a8dd3df3a6
commit a022411e8c
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
main.rkt
+10 -10
View File
@@ -10,7 +10,7 @@
(define-syntax early-return*
(syntax-rules ()
(syntax-rules (=> ? ~ do)
((_ () (b1 ...))
(let () b1 ...))
((_ ((do d1 ...)) (b1 ...))
@@ -19,32 +19,32 @@
((_ ((do d1 ...) c1 ...) (b1 ...))
(let () d1 ...
(early-return* (c1 ...) (b1 ...))))
((_ ((v expr ? pred? -> retval ~ cleanup)) (b1 ...))
((_ ((v expr ? pred? => retval ~ cleanup)) (b1 ...))
(let ((v expr))
(cond (pred? cleanup retval)
(else (let () b1 ...)))))
((_ ((v expr ? pred? -> retval ~ cleanup) c1 ...) (b1 ...))
((_ ((v expr ? pred? => retval ~ cleanup) c1 ...) (b1 ...))
(let ((v expr))
(cond (pred? cleanup retval)
(else (early-return* (c1 ...) (b1 ...))))))
((_ ((v expr ? pred? -> retval)) (b1 ...))
((_ ((v expr ? pred? => retval)) (b1 ...))
(let ((v expr))
(cond (pred? retval)
(else (let () b1 ...)))))
((_ ((v expr ? pred? -> retval) c1 ...) (b1 ...))
((_ ((v expr ? pred? => retval) c1 ...) (b1 ...))
(let ((v expr))
(cond (pred? retval)
(else (early-return* (c1 ...) (b1 ...))))))
((_ ((? pred? -> retval)) (b1 ...))
((_ ((? pred? => retval)) (b1 ...))
(cond (pred? retval)
(else (let () b1 ...))))
((_ ((? pred? -> retval) c1 ...) (b1 ...))
((_ ((? pred? => retval) c1 ...) (b1 ...))
(cond (pred? retval)
(else (early-return* (c1 ...) (b1 ...)))))
((_ ((? pred? -> retval ~ cleanup)) (b1 ...))
((_ ((? pred? => retval ~ cleanup)) (b1 ...))
(cond (pred? cleanup retval)
(else (let () b1 ...))))
((_ ((? pred? -> retval ~ cleanup) c1 ...) (b1 ...))
((_ ((? pred? => retval ~ cleanup) c1 ...) (b1 ...))
(cond (pred? cleanup retval)
(else (early-return* (c1 ...) (b1 ...)))))
((_ ((v expr)) (b1 ...))
@@ -57,7 +57,7 @@
)
(define-syntax early-return
(syntax-rules ()
(syntax-rules (=> ? ~ do)
((_ (er1 ...) b1 ...)
(early-return* (er1 ...) (b1 ...))
)