Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-16 09:27:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Construct constructor/predicate names in the syntactic context of the record name, not the context of the invokation of define-record-type

Browse source
This commit is contained in:
Marc Nieper-Wißkirchen 2018-12-05 12:15:17 +01:00
parent 152b20f244
commit 081a2a7b3f
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/srfi/99/records/syntactic.scm
View file

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