Repair schema-compiler
This commit is contained in:
parent
e17aa14a44
commit
4e79ff6db0
|
@ -91,7 +91,7 @@
|
||||||
`(:pat:arr (list ,@(map pat-pattern pats)))]
|
`(:pat:arr (list ,@(map pat-pattern pats)))]
|
||||||
[(CompoundPattern-tuplePrefix fixed-pats variable-pat)
|
[(CompoundPattern-tuplePrefix fixed-pats variable-pat)
|
||||||
`#,(raise-syntax-error ',name "Variable-length array cannot be used as a pattern")]
|
`#,(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))]
|
`(:pat:dict (hash ,@(append* (for/list [((k p) (in-hash entries))]
|
||||||
(define s (pat-pattern p))
|
(define s (pat-pattern p))
|
||||||
`(',k ,s)))))]
|
`(',k ,s)))))]
|
||||||
|
|
Loading…
Reference in New Issue