   true)
 (util/defalias w-l! ws-load!)
 
-(defn ws-replay!
+(defn ws-replay-id!
   "Replays the function call recorded in the active workspace with an id
   of `id`."
   [id]

          %)
       form))

(defmacro ws-query
  "Queries the trace record of the active workspace."
  [& body] `(q/q (ws-deref!)
                 ~@(syms->qbn body)))
(util/defalias-macro w-q ws-query)

(defmacro ws-query-print
  "Queries the trace record of the active workspace."
  [& body]
  `(with-printer-default
     (print-trees (q/q (ws-deref!)
                       ~@(syms->qbn body)))))
(util/defalias-macro w-qp ws-query-print)
(util/defalias-macro q ws-query-print)


  "Queries `tree`, a trace record."
  [tree & body] `(q/q ~tree
                      ~@body))

;; === END Query functions

