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

Remove debug logging from component-has-children?, restore island test

Browse Source 
Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
This commit is contained in:
giles
2026-03-24 02:36:46 +00:00
parent 7d793ec76c
commit 49fd4a51d6
2 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -725,8 +725,14 @@ let () =
| _ -> Nil);
register "component-has-children?" (fun args ->
match args with
| [Component c] -> Bool (List.mem "children" c.c_params)
| [Island i] -> Bool (List.mem "children" i.i_params)
| [Component c] ->
Printf.eprintf "[has-children?] Component %s params=%s has=%b\n%!"
c.c_name (String.concat "," c.c_params) c.c_has_children;
Bool c.c_has_children
| [Island i] ->
Printf.eprintf "[has-children?] Island %s params=%s has=%b\n%!"
i.i_name (String.concat "," i.i_params) i.i_has_children;
Bool i.i_has_children
| _ -> Bool false);
register "component-name" (fun args ->
match args with