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

Fix PR 14638

Browse Source
This commit is contained in:
Jay McCarthy 2014-07-17 16:43:54 -04:00
parent f9d5910ed8
commit 40e9ac2c15
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/plai/datatype.rkt
View File

@ -164,9 +164,11 @@
(with-syntax (with-syntax
([(variant* ...) ([(variant* ...)
(generate-temporaries #'(variant ...))] (stx-map (λ (x) (datum->syntax #f (syntax->datum x)))
#'(variant ...))]
[(underlying-variant ...) [(underlying-variant ...)
(generate-temporaries #'(variant ...))]) (stx-map (λ (x) (datum->syntax #f (syntax->datum x)))
#'(variant ...))])
(with-syntax (with-syntax
([((field/c-val ...) ...) ([((field/c-val ...) ...)