Add missing *->preserve coercions during unparsing
This commit is contained in:
parent
0d4d1e738c
commit
f12343e723
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue