From 26725cefd848d9fc8bd7d85071b6e10afce7d3d7 Mon Sep 17 00:00:00 2001
From: sforman <sforman@hushmail.com>
Date: Sat, 21 Oct 2023 20:05:11 -0700
Subject: [PATCH] Parse errors.

Convert error to abort to get the messages picked up by the exception
handler.
---
 implementations/scheme-chicken/joy.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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))))