    [UnityEngine Time Mathf Debug]
    [seawisphunter.minibuffer Minibuffer Command]))
 
-(log "minibuffer.lisp.core reloaded")
-
-;; This is just me trying to debug do-with-minibuffer
-(defonce defer-count 0)
+;(log "minibuffer.lisp.core reloaded")
+
 ;; gen-delegate, generate-generic-delegate, sys-func, and sys-action taken from
 ;; core-clr.clj and reworked from macros to be functions.
 


(defn message
  "Print a message to the echo area."
  [& strings] ;; or concatenate or format?
  (let [msg (apply str strings)]
       (with-minibuffer m
                        (.Message m msg))
       msg))

                 (str "Typeargs and args must be equal length or typeargs may have "
                      "one more element at the end to represent its return type.")))))

(defmacro separate-types
  "Given a function signature with type annotations do the following:

  (separate-types ^Int64 do-it [^String a ^Object b c])
    -> {:typeargs [String Object nil] :typeresult Int64}"
  [f args]
          `{:typeargs (->> '~args
                           (mapv meta)
                           (mapv :tag))
          :typeresult (:tag (meta '~f))})

(defmacro separate-types-oldform
  "Given a function signature with type annotations do the following:

  (separate-types ^Int64 do-it [^String a ^Object b c])
    -> [String Object nil Int64]

  This is suitable for input into the macro make-delegate."
  [f args]
          `(let [h# (separate-types ~f ~args)]
                (if (:typeresult h#)
                    (conj (:typeargs h#) (:typeresult h#))
