z/insert-right doesn't change the current position

Author: eraserhd

src/rewrite_clj/zip/zip.clj

@@ -154,7 +154,7 @@
   "Inserts the item as the right sibling of the node at this loc,
   without moving"
   [loc item]
-  (let [{:keys [node parent right]} loc]
+  (let [{:keys [parent right]} loc]
     (if-not parent
       (throw (new Exception "Insert at top"))
       (assoc loc

test/rewrite_clj/zip/zip_test.clj

@@ -76,3 +76,9 @@
     z/down
     (z/replace 'x)
     z/position) => [1 2])
+
+(fact "z/insert-right doesn't change the current position"
+  (-> (base/of-string "[hello world]")
+    z/down
+    (z/insert-right 'x)
+    z/position) => [1 2])