sforman/Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Parse errors.

Browse Source 
Convert error to abort to get the messages picked up by the exception
handler.
This commit is contained in:
sforman
2023-10-21 20:05:11 -07:00
parent 0a135e0f38
commit 26725cefd8
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
implementations/scheme-chicken/joy.scm
+2 -2
View File
@@ -238,7 +238,7 @@
(define (expect-right-bracket tokens acc) (define (expect-right-bracket tokens acc)
(if (null? tokens) (if (null? tokens)
(error "Missing closing bracket.") (abort "Missing closing bracket.")
(expect-right-bracket-lookahead (car tokens) (cdr tokens) acc))) (expect-right-bracket-lookahead (car tokens) (cdr tokens) acc)))
(define (expect-right-bracket-lookahead token tokens acc) (define (expect-right-bracket-lookahead token tokens acc)
@@ -252,7 +252,7 @@
(define (one-token-lookahead token tokens) (define (one-token-lookahead token tokens)
(match token (match token
("]" (error "Extra closing bracket.")) ("]" (abort "Extra closing bracket."))
("[" (expect-right-bracket tokens '())) ("[" (expect-right-bracket tokens '()))
(_ (values (tokenator token) tokens)))) (_ (values (tokenator token) tokens))))