simon/jolt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Phase 3 followup: add core-intern wrapper + core-bindings entry + test

Browse source 
- core-intern wrapper function (line 791) for var-reference support
- 'intern' core-intern entry in core-bindings (line 1176)
- intern test: (intern (the-ns) 'iv-var-test 77) → resolve iv-var-test
- intern special-form dispatch arm was already present (evaluator:589-593)
- intern was already listed in special-symbol? (evaluator:20)
- All 317 tests pass, 0 failures
This commit is contained in:
Yogthos 2026-06-02 20:52:03 -04:00
parent 8e86c7c2ec
commit 9799ed0559
2 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
test/compiler-test.janet
View file

@ -268,6 +268,8 @@
(assert (= 2 (eval-string ctx "(do (alter-var-root (var a-var-test) inc) (var-get (var a-var-test)))")) "alter-var-root")
(eval-string ctx "(def fv-var-test :found)")
(assert (= :found (eval-string ctx "(var-get (find-var 'fv-var-test))")) "find-var")
(eval-string ctx "(intern (the-ns) 'iv-var-test 77)")
(assert (= 77 (eval-string ctx "iv-var-test")) "intern")
(eval-string ctx "(def ^:dynamic *dv* 1)")
(assert (= 99 (eval-string ctx "(binding [*dv* 99] *dv*)")) "dynamic binding"))
(print " passed")