diff --git a/implementations/scheme-chicken/joy.scm b/implementations/scheme-chicken/joy.scm index 6d4a1d6..186919f 100644 --- a/implementations/scheme-chicken/joy.scm +++ b/implementations/scheme-chicken/joy.scm @@ -238,7 +238,7 @@ (define (expect-right-bracket tokens acc) (if (null? tokens) - (error "Missing closing bracket.") + (abort "Missing closing bracket.") (expect-right-bracket-lookahead (car tokens) (cdr tokens) acc))) (define (expect-right-bracket-lookahead token tokens acc) @@ -252,7 +252,7 @@ (define (one-token-lookahead token tokens) (match token - ("]" (error "Extra closing bracket.")) + ("]" (abort "Extra closing bracket.")) ("[" (expect-right-bracket tokens '())) (_ (values (tokenator token) tokens))))