hy.contrib.walk: Add support for walking cons cells

Signed-off-by: Gergely Nagy <[email protected]>
joshuakfarrar · Feb 1, 2014 · e8dfe5b · e8dfe5b
1 parent fa24042
commit e8dfe5b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/hy/contrib/walk.hy b/hy/contrib/walk.hy
@@ -32,6 +32,9 @@
     (outer (HyExpression (map inner form)))]
    [(instance? HyDict form)
     (HyDict (outer (HyExpression (map inner form))))]
+   [(cons? form)
+    (outer (cons (inner (first form))
+                 (inner (rest form))))]
    [(instance? list form)
     ((type form) (outer (HyExpression (map inner form))))]
    [true (outer form)]))

diff --git a/tests/native_tests/contrib/walk.hy b/tests/native_tests/contrib/walk.hy
@@ -3,6 +3,7 @@
 (def walk-form '(print {"foo" "bar"
                         "array" [1 2 3 [4]]
                         "something" (+ 1 2 3 4)
+                        "cons!" (cons 1 2)
                         "quoted?" '(foo)}))
 
 (defn collector [acc x]