From 081a2a7b3f87c8764017bf411f8ab7b41c19761e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Marc=20Nieper-Wi=C3=9Fkirchen?= Date: Wed, 5 Dec 2018 12:15:17 +0100 Subject: [PATCH] Construct constructor/predicate names in the syntactic context of the record name, not the context of the invokation of define-record-type --- lib/srfi/99/records/syntactic.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/srfi/99/records/syntactic.scm b/lib/srfi/99/records/syntactic.scm index e3166128..e43a8a79 100644 --- a/lib/srfi/99/records/syntactic.scm +++ b/lib/srfi/99/records/syntactic.scm @@ -10,12 +10,12 @@ (procs (cddr expr)) (make (car procs)) (make-name (if (eq? make #t) - (datum->syntax (car expr) + (datum->syntax name (string->symbol (string-append "make-" name-str))) (if (pair? make) (car make) make))) (pred (cadr procs)) (pred-name (if (eq? pred #t) - (datum->syntax (car expr) + (datum->syntax name (string->symbol (string-append name-str "?"))) pred)) (fields (cddr procs))