From 3f38a109f043137ea3ec219581f65bbfbc7714d2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 14 Jan 2018 14:23:03 -0700 Subject: [PATCH] `gensym` -> `(current-generate-id)` for nongenerative record original commit: bd287e45c685057feb824f257b2da8883cef5595 --- s/syntax.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/s/syntax.ss b/s/syntax.ss index 38bc19d9df..ed23f37074 100644 --- a/s/syntax.ss +++ b/s/syntax.ss @@ -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)