Repair missing argument in call to struct-label-and-arity
This commit is contained in:
parent
12df86ee74
commit
7bf0f17e8e
|
@ -138,7 +138,7 @@
|
||||||
|
|
||||||
[(ctor piece ...)
|
[(ctor piece ...)
|
||||||
(struct-info? (id-value #'ctor))
|
(struct-info? (id-value #'ctor))
|
||||||
(let-values (((label arity) (struct-label-and-arity #'ctor)))
|
(let-values (((label arity) (struct-label-and-arity #'ctor (length (syntax->list #'(piece ...))))))
|
||||||
#`(Pattern-DCompound
|
#`(Pattern-DCompound
|
||||||
(DCompound-rec (CRec '#,label #,arity)
|
(DCompound-rec (CRec '#,label #,arity)
|
||||||
(hasheqv #,@(append*
|
(hasheqv #,@(append*
|
||||||
|
|
Loading…
Reference in New Issue