diff --git a/main.rkt b/main.rkt index 35b7524..4d68fa4 100644 --- a/main.rkt +++ b/main.rkt @@ -10,7 +10,7 @@ (define-syntax early-return* - (syntax-rules (>> ? ~ do) + (syntax-rules () ((_ () (b1 ...)) (let () b1 ...)) ((_ ((do d1 ...)) (b1 ...)) @@ -57,7 +57,7 @@ ) (define-syntax early-return - (syntax-rules (>> ? ~ do) + (syntax-rules () ((_ (er1 ...) b1 ...) (early-return* (er1 ...) (b1 ...)) )