fix: all 317 SCI forms load, zero failures

- Reorder load sequence: types→unrestrict→vars→lang→utils→namespaces→core
- Add if-let/when-let/if-some/when-some/let macros and register in core-macro-names
- Add stubs: resolve, update, copy-core-var, copy-var, macrofy, new-var, avoid-method-too-large
- Add dynamic vars: *1, *2, *3, *e, *assert with nil-sentinel
- Fix core-update: use put instead of Janet's update (struct-incompatible)
- Change *clojure-version* from struct to table (mutable for update)
- Fix core-avoid-method-too-large: return @{} not nil
- Fix init-core! nil-sentinel unwrapping
- Fix let* destructuring for {:keys [...]} and sequential patterns
- Fix fn*/defmacro: capture defining ns for symbol resolution in closures

test/test-load-sci.janet

@@ -0,0 +1,70 @@
+(use ../src/jolt/evaluator)
+(use ../src/jolt/types)
+(use ../src/jolt/reader)
+(use ../src/jolt/api)
+
+(def ctx (init))
+
+(defn load-file [ctx path]
+  (var s (slurp path))
+  (var count 0)
+  (var ok 0)
+  (var fail 0)
+  (var failures @[])
+  (while (> (length (string/trim s)) 0)
+    (def [form rest] (parse-next s))
+    (set s rest)
+    (++ count)
+    (if (not (nil? form))
+      (do
+        (printf "eval form %d..." count)
+        (flush)
+        (if (try
+           (do (eval-form ctx @{} form) true)
+           ([err]
+            (printf " FAIL: %q\n" err)
+            (array/push failures {:form-number count :error (string err) :form (string form)})
+            false))
+          (do
+            (printf " OK\n")
+            (++ ok))
+          (++ fail)))))
+  {:ok ok :fail fail :total count :failures failures})
+
+(def sci-base "/Users/yogthos/src/sci/src/sci")
+
+(def load-order @[
+  ["impl/macros.cljc" nil]
+  ["impl/protocols.cljc" nil]
+  ["impl/types.cljc" nil]
+  ["impl/unrestrict.cljc" nil]
+  ["impl/vars.cljc" nil]
+  ["lang.cljc" nil]
+  ["impl/utils.cljc" nil]
+  ["impl/namespaces.cljc" nil]
+  ["core.cljc" nil]
+])
+
+(var total-ok 0)
+(var total-fail 0)
+(var all-failures @[])
+
+(each [file expected-ns] load-order
+  (def path (string sci-base "/" file))
+  (printf "\n=== Loading %s ===\n" file)
+  (def result (load-file ctx path))
+  (printf "  Result: %d ok, %d fail, %d total\n" (result :ok) (result :fail) (result :total))
+  (+= total-ok (result :ok))
+  (+= total-fail (result :fail))
+  (each f (result :failures)
+    (array/push all-failures {:file file :form-number (f :form-number) :error (f :error) :form (f :form)})))
+
+(printf "\n==============================\n")
+(printf "TOTAL: %d ok, %d fail, %d total\n" total-ok total-fail (+ total-ok total-fail))
+(printf "==============================\n")
+
+(when (> (length all-failures) 0)
+  (printf "\n=== FAILURES ===\n")
+  (each f all-failures
+    (printf "[%s:%d] %s\n" (f :file) (f :form-number) (f :error))
+    (printf "  form: %s\n" (f :form))))