Add missing *->preserve coercions during unparsing

This commit is contained in:
Tony Garnock-Jones 2021-06-10 10:01:04 +02:00
parent 0d4d1e738c
commit f12343e723
1 changed files with 4 additions and 4 deletions

View File

@ -13,10 +13,10 @@
(define (pattern->unparser pattern src-stx)
(match (unwrap pattern)
[(NamedSimplePattern_ n p) (pattern->unparser p (escape n))]
[(SimplePattern-any) src-stx]
[(SimplePattern-atom (AtomKind-Float)) `(->float ,src-stx)]
[(SimplePattern-atom (AtomKind-Double)) `(exact->inexact ,src-stx)]
[(SimplePattern-atom _) src-stx]
[(SimplePattern-any) `(*->preserve ,src-stx)]
[(SimplePattern-atom (AtomKind-Float)) `(->float (*->preserve ,src-stx))]
[(SimplePattern-atom (AtomKind-Double)) `(exact->inexact (*->preserve ,src-stx))]
[(SimplePattern-atom _) `(*->preserve ,src-stx)]
[(SimplePattern-embedded _interface) `(embedded ,src-stx)]
[(SimplePattern-lit v) `',v]
[(SimplePattern-seqof variable-pat)