gensym
-> (current-generate-id)
for nongenerative record
original commit: bd287e45c685057feb824f257b2da8883cef5595
This commit is contained in:
parent
ca082aa7e8
commit
3f38a109f0
|
@ -9391,7 +9391,7 @@
|
||||||
(begin
|
(begin
|
||||||
(when (any-set? keys-seen (clause-key nongenerative))
|
(when (any-set? keys-seen (clause-key nongenerative))
|
||||||
(syntax-error src "record definition has multiple nongenerative clauses"))
|
(syntax-error src "record definition has multiple nongenerative clauses"))
|
||||||
(Mclause parse-clauses ([%uid (datum->syntax #'* (gensym (symbol->string (syntax->datum name))))])
|
(Mclause parse-clauses ([%uid (datum->syntax #'* ((current-generate-id) (syntax->datum name)))])
|
||||||
(set-flags keys-seen (clause-key nongenerative))
|
(set-flags keys-seen (clause-key nongenerative))
|
||||||
(cdr clause*)))]
|
(cdr clause*)))]
|
||||||
[(nongenerative id)
|
[(nongenerative id)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user