syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Repair missing argument in call to struct-label-and-arity

This commit is contained in:
Tony Garnock-Jones 2021-06-03 22:43:10 +02:00
parent 12df86ee74
commit 7bf0f17e8e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
syndicate/pattern.rkt
View File

@ -138,7 +138,7 @@
[(ctor piece ...)
(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
(DCompound-rec (CRec '#,label #,arity)
(hasheqv #,@(append*