diff --git a/syndicate/schema-compiler.rkt b/syndicate/schema-compiler.rkt index bfd43db..5831a32 100644 --- a/syndicate/schema-compiler.rkt +++ b/syndicate/schema-compiler.rkt @@ -72,7 +72,10 @@ [(SimplePattern-any) discard] [(SimplePattern-atom _atomKind) discard] [(SimplePattern-embedded _interface) discard] - [(SimplePattern-lit value) `(,(N 'Pattern-DLit) (,(N 'DLit) ',value))] + [(SimplePattern-lit value) + (if (eq? value '...) + `(,(N 'Pattern-DLit) (,(N 'DLit) (quote (... ...)))) + `(,(N 'Pattern-DLit) (,(N 'DLit) ',value)))] [(SimplePattern-seqof pat) discard] [(SimplePattern-setof pat) discard] [(SimplePattern-dictof key-pat value-pat) discard]