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