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

Parse errors. 

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
implementations/scheme-chicken/joy.scm
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))))