[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
- [PATCH] typed-records fix for Chicken 6,
Daniel Ziltener <=