From 83b0cd41e02b30f3233aed54745500ea04703d5d Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 24 Nov 2022 09:58:04 +0100 Subject: [PATCH] Repair quotation of ellipsis literals --- syndicate/schema-compiler.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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]