chore: update memory/skills

test/test-ctor.janet

@@ -0,0 +1,34 @@
+(use ../src/jolt/types)
+(use ../src/jolt/api)
+(use ../src/jolt/reader)
+(use ../src/jolt/evaluator)
+
+(def ctx (init))
+(def sci-base "vendor/sci/src/sci")
+
+(defn load [ctx path]
+  (var s (slurp path))
+  (while (> (length (string/trim s)) 0)
+    (def [form rest] (parse-next s))
+    (set s rest)
+    (when (not (nil? form))
+      (try (eval-form ctx @{} form) ([err] nil))))))
+
+(each f ["impl/macros.cljc" "impl/protocols.cljc" "impl/types.cljc" "impl/unrestrict.cljc" "impl/vars.cljc" "lang.cljc" "impl/utils.cljc" "impl/namespaces.cljc"]
+  (load ctx (string sci-base "/" f)))
+
+# Check if utils/new-var exists
+(def utils-ns (ctx-find-ns ctx "sci.impl.utils"))
+(def new-var-v (if utils-ns (ns-find utils-ns "new-var") nil))
+(printf "sci.impl.utils/new-var: %q\n" new-var-v)
+
+# Check parser ns aliases
+(def parser-ns (ctx-find-ns ctx "sci.impl.parser"))
+(if parser-ns
+  (do
+    (printf "parser aliases: %q\n" (parser-ns :aliases))
+    (printf "parser imports: %q\n" (parser-ns :imports))))
+
+# Try resolving utils/new-var through alias
+(printf "\nResolve utils/new-var: %q\n"
+  (try (eval-string ctx "utils/new-var") ([err] (string "ERR: " err))))