Fix island rendering in OCaml test runner — add Island cases to component accessors

The test runner's component-body/component-params/component-has-children
bindings only handled Component values, not Island. When adapter-html.sx
called (component-body island), it hit the fallback and returned nil,
producing empty island bodies. Also removed debug logging from
component-has-children? primitive.

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>

hosts/ocaml/lib/sx_primitives.ml

@@ -725,14 +725,8 @@ let () =
     | _ -> Nil);
   register "component-has-children?" (fun args ->
     match args with
-    | [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
+    | [Component c] -> Bool c.c_has_children
+    | [Island i] -> Bool i.i_has_children
     | _ -> Bool false);
   register "component-name" (fun args ->
     match args with