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

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)) (procs (cddr expr))
(make (car procs)) (make (car procs))
(make-name (if (eq? make #t) (make-name (if (eq? make #t)
(datum->syntax (car expr) (datum->syntax name
(string->symbol (string-append "make-" name-str))) (string->symbol (string-append "make-" name-str)))
(if (pair? make) (car make) make))) (if (pair? make) (car make) make)))
(pred (cadr procs)) (pred (cadr procs))
(pred-name (if (eq? pred #t) (pred-name (if (eq? pred #t)
(datum->syntax (car expr) (datum->syntax name
(string->symbol (string-append name-str "?"))) (string->symbol (string-append name-str "?")))
pred)) pred))
(fields (cddr procs)) (fields (cddr procs))