Make strip- and peel-annotations more useful with dictionaries
This commit is contained in:
parent
e57fe62a48
commit
6783daa20d
|
@ -66,7 +66,7 @@
|
|||
(error 'strip-annotations "Cannot strip-annotations from struct: ~v" v)]
|
||||
[(? list?) (map walk item)]
|
||||
[(? set?) (for/set [(i (in-set item))] (walk i))]
|
||||
[(? dict?) (for/hash [((k v) (in-dict item))] (values (walk k) (walk v)))]
|
||||
[(? dict?) (for/hash [((k v) (in-dict item))] (values (walk* k depth) (walk v)))]
|
||||
[(? annotated?)
|
||||
(error 'strip-annotations "Improper annotation structure: ~v" v)]
|
||||
[_ item])]
|
||||
|
|
Loading…
Reference in New Issue