syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Repair quotation of ellipsis literals

This commit is contained in:
Tony Garnock-Jones 2022-11-24 09:58:04 +01:00
parent b39515c6e5
commit 83b0cd41e0
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
syndicate/schema-compiler.rkt
View File

@ -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]