Fix arg evaluation order + host interop gaps so reitit/selmer/honeysql run

Shaking the ring-app example's real library stack out against jolt surfaced a
batch of divergences from JVM Clojure, the biggest being evaluation order.

backend_scheme: call and recur arguments were emitted as bare Scheme operands,
so Chez's unspecified (right-to-left) order won out. Clojure evaluates left to
right, which selmer's reader loop relies on: (recur (add-node ... rdr) (read-char
rdr)) consumed a char early and dropped the first chars of every {{tag}}. Bind
operands to fresh temps in a let* (only when two or more can have side effects,
so hot calls over locals/consts stay un-wrapped). emit-ordered already did this
for collection literals; generalize it.

host-contract: syntax-quote now resolves the alias part of a qualified symbol
(impl/foo -> clojure.tools.logging.impl/foo) instead of leaving it bare, which
limped along via short-name matching until two loaded namespaces (reitit.impl,
clojure.tools.logging.impl) shared the short name and it broke.

collections: key-hash masks with bitwise-and, not fxand — jolt-hash is set!-
decorated per type (records return their own hash) and Chez's equal-hash can be a
bignum, so a key's hash isn't always a fixnum.

seq: even?/odd? handle bignums (JVM accepts any integer; the fxand crashed).

records: Keyword/Symbol .sym/.getName/.toString (honeysql's :clj branch reads
(.sym k)); Throwable .getMessage/.toString over a Chez condition.

host-static: __register-class-ctor!/__register-class-statics! so a host shim
(reitit.trie-jolt) can mirror a Java class.

natives-str: String.intern returns the string.

sqlite: jdbc.core fetch/fetch-one kebab-case column keys (the jolt-lang/db
convention; created_at -> :created-at).

io: a relative io/file path resolves against JOLT_PWD (the user's cwd), not the
repo root the launcher cd'd to — matches JVM cwd semantics, so config.edn loads.

cli: render an uncaught jolt throw (ex-info message + ex-data, or a condition)
instead of Chez's opaque "non-condition value" dump.

host/chez/records.ss

@@ -247,6 +247,15 @@
 ;; holding a mutable cursor over (seq coll); (.hasNext it)/(.next it) walk it.
 ;; hiccup/compiler's run! loop iterates collections this way.
 (define-record-type jiterator (fields (mutable cur)) (nongenerative jolt-iterator-v1))
+;; A Chez condition's message string (for Throwable .getMessage/.toString): the
+;; &message text plus any &irritants, or display-condition output as a fallback.
+(define (condition->message-string c)
+  (if (message-condition? c)
+      (let ((m (condition-message c))
+            (irr (if (irritants-condition? c) (condition-irritants c) '())))
+        (let loop ((xs irr) (acc m))
+          (if (null? xs) acc (loop (cdr xs) (string-append acc " " (jolt-pr-str (car xs)))))))
+      (with-output-to-string (lambda () (display-condition c)))))
 (define (record-method-dispatch obj method-name rest-args)
   (let ((rest (if (jolt-nil? rest-args) '() (seq->list rest-args))))
     (cond
@@ -266,6 +275,38 @@
                     (let ((v (jolt-first s))) (jiterator-cur-set! obj (jolt-rest s)) v))))
              (else (error #f (string-append "No method " method-name " on Iterator")))))
       ((string=? method-name "iterator") (make-jiterator (jolt-seq obj)))
+      ;; clojure.lang.Keyword interop: a Keyword carries an interned `sym` field
+      ;; (the symbol form, ns + name) plus the Named methods. honeysql/reitit read
+      ;; (.sym k) on their :clj branch to recover the symbol without the colon.
+      ((keyword-t? obj)
+       (cond ((string=? method-name "sym")
+              (jolt-symbol (keyword-t-ns obj) (keyword-t-name obj)))
+             ((string=? method-name "getName") (keyword-t-name obj))
+             ((string=? method-name "getNamespace") (or (keyword-t-ns obj) jolt-nil))
+             ((string=? method-name "toString")
+              (string-append ":" (if (keyword-t-ns obj) (string-append (keyword-t-ns obj) "/") "")
+                             (keyword-t-name obj)))
+             ((string=? method-name "hashCode") (keyword-t-khash obj))
+             ((string=? method-name "equals") (and (pair? rest) (eq? obj (car rest))))
+             (else (error #f (string-append "No method " method-name " on Keyword")))))
+      ;; clojure.lang.Symbol interop: the Named methods + getName/getNamespace.
+      ((symbol-t? obj)
+       (cond ((string=? method-name "getName") (symbol-t-name obj))
+             ((string=? method-name "getNamespace") (or (symbol-t-ns obj) jolt-nil))
+             ((string=? method-name "toString")
+              (string-append (if (symbol-t-ns obj) (string-append (symbol-t-ns obj) "/") "")
+                             (symbol-t-name obj)))
+             ((string=? method-name "equals") (and (pair? rest) (jolt=2 obj (car rest))))
+             (else (error #f (string-append "No method " method-name " on Symbol")))))
+      ;; java.lang.Throwable interop over a Chez condition. A jolt host error
+      ;; (`error`/`assertion-violationf`) raises a Chez condition; Clojure code
+      ;; that catches it as a Throwable reads (.getMessage e) / (.toString e).
+      ((condition? obj)
+       (cond ((or (string=? method-name "getMessage") (string=? method-name "getLocalizedMessage"))
+              (condition->message-string obj))
+             ((string=? method-name "toString") (condition->message-string obj))
+             ((string=? method-name "getCause") jolt-nil)
+             (else (error #f (string-append "No method " method-name " on Throwable")))))
       ;; java.lang.Character interop: (.toString \+) -> "+", etc.
       ((char? obj)
        (cond ((string=? method-name "toString") (string obj))