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.

stdlib/clojure/edn.clj

@@ -55,12 +55,10 @@
   PushbackReader, io/reader results) expose char-wise .read; a raw file
   handle is read whole."
   [reader]
-  (if (= :core/file (janet/type reader))
-    (janet.file/read reader :all)
-    (loop [acc (transient []) c (.read reader)]
-      (if (== -1 c)
-        (apply str (map char (persistent! acc)))
-        (recur (conj! acc c) (.read reader))))))
+  (loop [acc (transient []) c (.read reader)]
+    (if (== -1 c)
+      (apply str (map char (persistent! acc)))
+      (recur (conj! acc c) (.read reader)))))
 
 (defn read
   "Reads one EDN object from reader (a PushbackReader or any jolt reader).

stdlib/clojure/string.clj

@@ -96,15 +96,6 @@
   [s]
   (str-trimr s))
 
-(defn trim-newline
-  
-  [s]
-  (var result s)
-  (while (or (= (subs result (dec (count result))) "\n")
-             (= (subs result (dec (count result))) "\r"))
-    (set result (subs result 0 (dec (count result)))))
-  result)
-
 (defn escape
   
   [s cmap]