syndicate-lang
/
preserves
mirror of https://gitlab.com/preserves/preserves.git
1
0
Fork 1
Code Releases Activity

Make strip- and peel-annotations more useful with dictionaries

This commit is contained in:
Tony Garnock-Jones 2019-08-20 22:30:44 +01:00
parent e57fe62a48
commit 6783daa20d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
implementations/racket/preserves/main.rkt
View File

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