 (def code-contains?
   (core/build-instruction
     code-contains?
+    "`:code-contains?` pops the top two items from the `:code` stack, and pushes `true` if the second one is contained (as any subtree) in the first, or if they are identical."
     :tags #{:complex :base}
     (d/consume-top-of :code :as :arg2)
     (d/consume-top-of :code :as :arg1)

    (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-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)))
