removed keywords due to clash with racket/contract
This commit is contained in:
@@ -10,7 +10,7 @@
|
|||||||
|
|
||||||
|
|
||||||
(define-syntax early-return*
|
(define-syntax early-return*
|
||||||
(syntax-rules (>> ? ~ do)
|
(syntax-rules ()
|
||||||
((_ () (b1 ...))
|
((_ () (b1 ...))
|
||||||
(let () b1 ...))
|
(let () b1 ...))
|
||||||
((_ ((do d1 ...)) (b1 ...))
|
((_ ((do d1 ...)) (b1 ...))
|
||||||
@@ -57,7 +57,7 @@
|
|||||||
)
|
)
|
||||||
|
|
||||||
(define-syntax early-return
|
(define-syntax early-return
|
||||||
(syntax-rules (>> ? ~ do)
|
(syntax-rules ()
|
||||||
((_ (er1 ...) b1 ...)
|
((_ (er1 ...) b1 ...)
|
||||||
(early-return* (er1 ...) (b1 ...))
|
(early-return* (er1 ...) (b1 ...))
|
||||||
)
|
)
|
||||||
|
|||||||
Reference in New Issue
Block a user