Repair quotation of ellipsis literals
This commit is contained in:
parent
b39515c6e5
commit
83b0cd41e0
|
@ -72,7 +72,10 @@
|
||||||
[(SimplePattern-any) discard]
|
[(SimplePattern-any) discard]
|
||||||
[(SimplePattern-atom _atomKind) discard]
|
[(SimplePattern-atom _atomKind) discard]
|
||||||
[(SimplePattern-embedded _interface) 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-seqof pat) discard]
|
||||||
[(SimplePattern-setof pat) discard]
|
[(SimplePattern-setof pat) discard]
|
||||||
[(SimplePattern-dictof key-pat value-pat) discard]
|
[(SimplePattern-dictof key-pat value-pat) discard]
|
||||||
|
|
Loading…
Reference in New Issue