From 7bf0f17e8edd9bce36edd7bb72f6bf31f8d73e4d Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonyg@leastfixedpoint.com>
Date: Thu, 3 Jun 2021 22:43:10 +0200
Subject: [PATCH] Repair missing argument in call to struct-label-and-arity

---
 syndicate/pattern.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/syndicate/pattern.rkt b/syndicate/pattern.rkt
index 0076bb6..263c2b3 100644
--- a/syndicate/pattern.rkt
+++ b/syndicate/pattern.rkt
@@ -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*