Hi @whatacold! I’ll have a peek and get back to you!

(Maybe interesting aside: Your sample reminded me of https://github.com/lread/test-doc-blocks, which is not at all what you are looking for or asking about, but will test code snippits found in documentation)

So I had a peek @whatacold. The following might (?) be tripping you up: • z/right will return nil when there is no next sibling • z/end? will return true when at (not past) the last node (https://github.com/clj-commons/rewrite-clj/issues/155). It will also return true for a nil input. What do you think of this instead?

(loop [zloc zloc]
  (let [zloc (some-> zloc
                     (z/insert-right* (n/comment-node "; test"))
                     (z/insert-right* (n/newlines 1)))
        next-sib (z/right zloc)]
    (if next-sib
      (recur next-sib)
      (z/print-root zloc))))

(defn my-function [a]
  (* a 3))
;; test

(my-function 7)
;; test