Dead-code removal, perf fixes, deterministic seed emission

Round 1 (correctness + dead code):
- Fix duplicate java.util.HashMap registration in host-static.ss: the alist
  impl shadowed the hashtable ctor while leaving the hashtable methods bound,
  so .keySet/.values/.remove/.clear crashed. Drop the alist version.
- Delete jolt-core/jolt/reader.clj: a 463-line dead duplicate reader, never
  required or compiled (the live reader is host/chez/reader.ss) and drifted.
- Remove dead defs: ir/rt + :rt op + unused ir/op; the Janet branch in
  clojure.edn/drain-reader; a shadowed first clojure.string/trim-newline;
  io.ss jolt-char-array + the reader def-var (both shadowed by natives-array);
  concurrency.ss jolt-future-done?*; compile-eval.ss jolt-analyze-emit.

Round 2 (perf + determinism):
- emit-quoted-map-value / quoted sets now emit sorted by emitted text instead
  of host-hash order, which isn't stable across Chez versions (jolt-8479).
- jolt-into folds through a transient, so into/vec/mapv/filterv onto a vector
  are O(n) instead of O(n^2).
- deps resolve-deps walks its queue with an index cursor (was subvec-per-pop).
- async channel and agent action queues use amortized-O(1) FIFOs; ArrayList is
  backed by a growable vector (O(1) add/get) instead of a list.

jolt-core/jolt/ir.clj

@@ -20,9 +20,6 @@
 ;; end emits the embedded var cell so `binding`'s thread-binding frame can key on it.
 (defn the-var [ns name] {:op :the-var :ns ns :name name})
 
-;; A runtime primitive (cons, +, get, apply, …) the back end maps to the host RT.
-(defn rt [name] {:op :rt :name name})
-
 ;; A name that resolves only via the host's own environment (e.g. + or int?) —
 ;; the back end emits a host-appropriate reference.
 (defn host-ref [name] {:op :host :name name})
@@ -69,8 +66,6 @@
 (defn quote-node [form] {:op :quote :form form})
 (defn throw-node [expr] {:op :throw :expr expr})
 
-(defn op [node] (:op node))
-
 ;; ---------------------------------------------------------------------------
 ;; Structural recursion over IR child nodes.
 ;;
@@ -127,5 +122,5 @@
             n (if (get node :catch-body) (assoc n :catch-body (f (get node :catch-body))) n)
             n (if (get node :finally) (assoc n :finally (f (get node :finally))) n)]
         n)
-      ;; :const :local :var :host :host-static :the-var :rt :quote — no child nodes
+      ;; :const :local :var :host :host-static :the-var :quote — no child nodes
       :else node)))