Chez Phase 2 (inc N): type (jolt-fmm4)

Implement (type x) on the Chez RT (host/chez/natives-meta.ss). Mirrors the
seed's core-type: the :type metadata wins when present, a record yields its
ns-qualified class-name SYMBOL (user.TyR — no-ns sentinel #f so it = the
overlay's (symbol (str t))), everything else a host-taxonomy keyword
(:number/:string/:vector/:map/:set/:seq/:fn/…). Total by construction — a
non-record value falling through to a crash would read as a divergence, so the
cond covers every value type incl. the host wrappers (atom/volatile/regex/var/
transient/uuid -> :jolt/*, a :jolt/type-tagged map like ex-info -> its tag,
sorted-set -> :jolt/sorted-set, sorted-map -> :map) and a final :object.

Also pin sequential?/seq? on lazy seqs (test/chez/_seqpred.janet): the inc M
seq? re-def-var! fix already covers sequential? transitively (sequential? is
overlay and delegates to seq?), so no code change — the earlier "still broken"
note was wrong, it assumed sequential? was native like seq?.

Prelude corpus parity 2000 -> 2002 (the two type cases), floor raised, 0 new
divergences. Gate: _type 37/37 + _seqpred 22/22 (both vs build/jolt oracle),
emit-test 321/321, full jpm test, conformance 355x3.

host/chez/records.ss

@@ -286,9 +286,9 @@
               (let ((s (jrec-pr v))) (substring s 1 (string-length s)))))
         (%r-str-render-one v))))
 
-;; NOTE: `type` is not shimmed on Chez yet (nil); a record-aware override here
-;; would turn non-record (type x) crashes into divergences. Deferred to a `type`
-;; increment with proper class names.
+;; `type` lives in natives-meta.ss (jolt-fmm4): it needs jolt-meta for the :type
+;; override and a total value->taxonomy mapping, so it sits with meta — a record
+;; yields (jolt-symbol #f (jrec-tag x)), the ns.Name class-name symbol.
 
 (def-var! "clojure.core" "make-deftype-ctor" make-deftype-ctor)
 (def-var! "clojure.core" "make-protocol" make-protocol)