coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Retranspile sx_ref.ml with mutable globals from transpiler

Browse Source 
No more regex fixups for *strict* / *prim-param-types* — transpiler
handles reads (!_ref), writes (_ref :=), and defines natively.
2566/2568 tests pass.

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
This commit is contained in:
giles
2026-04-03 14:04:40 +00:00
parent 1498cc2bdb
commit db1f7f1bfb
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
hosts/ocaml/lib/sx_ref.ml
View File

@@ -296,18 +296,20 @@ and render_fn =
Nil Nil
(* *strict* *) (* *strict* *)
and _strict_ = !_strict_ref and _strict_ =
!_strict_ref
(* set-strict! *) (* set-strict! *)
and set_strict_b val' = and set_strict_b val' =
_strict_ref := val'; Nil let _strict_ = ref Nil in (_strict_ref := val'; Nil)
(* *prim-param-types* *) (* *prim-param-types* *)
and _prim_param_types_ = !_prim_param_types_ref and _prim_param_types_ =
!_prim_param_types_ref
(* set-prim-param-types! *) (* set-prim-param-types! *)
and set_prim_param_types_b types = and set_prim_param_types_b types =
_prim_param_types_ref := types; Nil let _prim_param_types_ = ref Nil in (_prim_param_types_ref := types; Nil)
(* value-matches-type? *) (* value-matches-type? *)
and value_matches_type_p val' expected_type = and value_matches_type_p val' expected_type =