From 4e79ff6db08d612a2aeee245f86adbc78ebfaa42 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Fri, 25 Nov 2022 13:50:42 +0100 Subject: [PATCH] Repair schema-compiler --- syndicate/schema-compiler.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/syndicate/schema-compiler.rkt b/syndicate/schema-compiler.rkt index 5831a32..f10d221 100644 --- 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)))))]