A map push instruction. Iterates top item on exec stack all over a collection

type_map.clj

(defn type_map
  [type]
  (fn [state]
    (if (or (not (empty? (type state)))
            (not (empty? (:exec state)))
            (not (empty? (:float state)))
            (number? (top-item :float state)))
      (let [items (ensure-list (take (top-item :float state) (type state)))
            answer (doall (for [item (ensure-list (reverse (take (top-item :float state) (type state))))]
                            (list item
                                  (first (:exec state)))))]
        ;(printf "\nposition_map\n")(flush)
        (push-item answer :exec (pop-item :code (pop-item :exec state))))
      state)))                           

(define-registered integer_map (type_map :integer))
(define-registered float_map (type_map :float))
(define-registered string_map (type_map :string))