chicken-hackers
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[PATCH] typed-records fix for Chicken 6


From: Daniel Ziltener
Subject: [PATCH] typed-records fix for Chicken 6
Date: Sat, 28 Sep 2024 22:12:38 +0200

I fixed the typed-records egg to make it work on Chicken 6, but I am not quite 
sure
if this is the way it should be done - is syntax-error intentionally not taking
LOCATION anymore, or is that a bug in Chicken 6?

zilti

---
 typed-records.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/typed-records.scm b/typed-records.scm
index 2685aa6..3aa4563 100644
--- a/typed-records.scm
+++ b/typed-records.scm
@@ -49,7 +49,7 @@
                                (symbol? (second (car slot))))
                           (cons (second (car slot)) (third slot)))
                          (else 
-                          (syntax-error
+                          (##sys#syntax-error
                            'define-record
                            "invalid syntax in slot specification" slot))))
                  slots)))
@@ -129,7 +129,7 @@
                  (,@(map (lambda (tag)
                            (let loop ((fields accs/mods/types))
                              (cond ((null? fields)
-                                    (syntax-error
+                                    (##sys#syntax-error
                                      'define-record-type
                                      "constructor tag refers to nonexistent 
record field"
                                      ctor))
@@ -212,7 +212,7 @@
                                    (symbol? (caar slot)))
                               (cons (caar slot) (third slot)))
                              (else 
-                              (syntax-error
+                              (##sys#syntax-error
                                'defstruct
                                "invalid syntax in slot specification" slot))))
                      slots)))
-- 
2.45.2




reply via email to

[Prev in Thread] Current Thread [Next in Thread]