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
