suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gensym -> (current-generate-id) for nongenerative record

Browse Source 
original commit: bd287e45c685057feb824f257b2da8883cef5595
This commit is contained in:
Matthew Flatt 2018-01-14 14:23:03 -07:00
parent ca082aa7e8
commit 3f38a109f0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
s/syntax.ss
View File

@ -9391,7 +9391,7 @@
(begin
(when (any-set? keys-seen (clause-key nongenerative))
(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))
(cdr clause*)))]
[(nongenerative id)