Yaltik/hy
2
0
Fork 0
Code Pull Requests Releases Activity

Check for HySequence in hy.contrib.walk

Browse Source
This commit is contained in:
Kodi Arfer 2019-08-02 17:06:26 -04:00
parent 95ad5a01c8
commit 4a40ff3d7e
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hy/contrib/walk.hy
View File

@ -4,6 +4,7 @@
;; license. See the LICENSE. ;; license. See the LICENSE.
(import [hy [HyExpression HyDict]] (import [hy [HyExpression HyDict]]
[hy.models [HySequence]]
[functools [partial]] [functools [partial]]
[importlib [import-module]] [importlib [import-module]]
[collections [OrderedDict]] [collections [OrderedDict]]
@ -17,9 +18,7 @@
(cond (cond
[(instance? HyExpression form) [(instance? HyExpression form)
(outer (HyExpression (map inner form)))] (outer (HyExpression (map inner form)))]
[(instance? HyDict form) [(or (instance? HySequence form) (list? form))
(HyDict (outer (HyExpression (map inner form))))]
[(list? form)
((type form) (outer (HyExpression (map inner form))))] ((type form) (outer (HyExpression (map inner form))))]
[(coll? form) [(coll? form)
(walk inner outer (list form))] (walk inner outer (list form))]