mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-11-03 09:03:02 +00:00
Code Issues 1 Releases Wiki Activity

Rename pre-walk and post-walk to prewalk and postwalk.

Browse Source
This commit is contained in:
Calvin Rose
2018-12-30 15:34:01 -05:00
parent fe22a8db39
commit 9e6254bf56
2 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/core/core.janet
View File

@@ -854,16 +854,16 @@
(put _env 'walk-ind nil)
(put _env 'walk-dict nil)
(defn post-walk
"Do a post-order traversal of a data sructure and call (f x)
(defn postwalk
"Do a postorder traversal of a data sructure and call (f x)
on every visitation."
[f form]
(f (walk (fn [x] (post-walk f x)) form)))
(f (walk (fn [x] (postwalk f x)) form)))
(defn pre-walk
"Similar to post-walk, but do pre-order traversal."
(defn prewalk
"Similar to postwalk, but do preorder traversal."
[f form]
(walk (fn [x] (pre-walk f x)) (f form)))
(walk (fn [x] (prewalk f x)) (f form)))
(defmacro as->
"Thread forms together, replacing as in forms with the value
@@ -873,7 +873,7 @@
(var prev x)
(loop [form :in forms]
(def sym (gensym))
(def next-prev (post-walk (fn [y] (if (= y as) sym y)) form))
(def next-prev (postwalk (fn [y] (if (= y as) sym y)) form))
(set prev ~(let [,sym ,prev] ,next-prev)))
prev)
@@ -886,7 +886,7 @@
(var prev x)
(loop [form :in forms]
(def sym (gensym))
(def next-prev (post-walk (fn [y] (if (= y as) sym y)) form))
(def next-prev (postwalk (fn [y] (if (= y as) sym y)) form))
(set prev ~(if-let [,sym ,prev] ,next-prev)))
prev)