     (d/consume-top-of :code :as :arg1)
     (d/calculate [:arg1 :arg2 :arg3] #(u/replace-in-code %1 %2 %3) :as :replaced)
     (d/push-onto :code :replaced)))
-
-
 
 
 (def code-wrap (t/simple-1-in-1-out-instruction

(def code-contains?
  (core/build-instruction
    code-contains?
    :tags #{:complex :base}
    (d/consume-top-of :code :as :arg2)
    (d/consume-top-of :code :as :arg1)

(def code-quote
  (core/build-instruction
    code-quote
    "`:code-quote` pops the top item from the `:exec` stack and puts it onto the `:code` stack."
    :tags #{:complex :base}
    (d/consume-top-of :exec :as :arg1)
    (d/push-onto :code :arg1)))
