Repair schema-compiler

2022-11-25 13:50:42 +01:00 · 2022-11-25 13:50:42 +01:00 · 4e79ff6db0
parent e17aa14a44
commit 4e79ff6db0
1 changed files with 1 additions and 1 deletions
--- a/syndicate/schema-compiler.rkt
+++ b/syndicate/schema-compiler.rkt
@ -91,7 +91,7 @@
         `(:pat:arr (list ,@(map pat-pattern pats)))]
        [(CompoundPattern-tuplePrefix fixed-pats variable-pat)
         `#,(raise-syntax-error ',name "Variable-length array cannot be used as a pattern")]
-        [(CompoundPattern-dict entries)
+        [(CompoundPattern-dict (DictionaryEntries entries))
         `(:pat:dict (hash ,@(append* (for/list [((k p) (in-hash entries))]
                                        (define s (pat-pattern p))
                                        `(',k ,s)))))]