Fix some primitive: return callback result, not element

List.find returns the element that matched, but SX some should return
the callback's truthy return value. This caused get-verb-info to return
"get" (the verb string) instead of the {method, url} dict.

Also added _active_vm tracking to VM for future HO primitive optimization,
and reverted get-verb-info to use some (no longer needs for-each workaround).

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

hosts/ocaml/lib/sx_primitives.ml

@@ -731,8 +731,12 @@ let () =
   register "some" (fun args ->
     match args with
     | [f; (List items | ListRef { contents = items })] ->
-      (try List.find (fun x -> sx_truthy (call_any f [x])) items
-       with Not_found -> Bool false)
+      let rec find = function
+        | [] -> Bool false
+        | x :: rest ->
+          let result = call_any f [x] in
+          if sx_truthy result then result else find rest
+      in find items
     | [_; Nil] -> Bool false
     | _ -> raise (Eval_error "some: expected (fn list)"));
   register "every?" (fun args ->

hosts/ocaml/lib/sx_vm.ml

@@ -41,6 +41,13 @@ let jit_failed_sentinel = {
 
 let is_jit_failed cl = cl.vm_code.vc_arity = -1
 
+(** Current active VM — allows HO primitives (map, filter, for-each, some)
+    to call VmClosure callbacks on the same VM instead of creating a new one.
+    This is critical: creating a new VM per callback loses the calling VM's
+    stack/frame context, causing upvalue-captured host objects to become
+    inaccessible. *)
+let _active_vm : vm option ref = ref None
+
 let create globals =
   { stack = Array.make 4096 Nil; sp = 0; frames = []; globals }
 
@@ -125,11 +132,20 @@ let code_from_value v =
     Used for entry points: JIT Lambda calls, module execution, cross-boundary. *)
 let rec call_closure cl args globals =
   incr _vm_call_count;
+  let prev_vm = !_active_vm in
   let vm = create globals in
+  _active_vm := Some vm;
   push_closure_frame vm cl args;
-  (try run vm with e -> raise e);
+  (try run vm with e -> _active_vm := prev_vm; raise e);
+  _active_vm := prev_vm;
   pop vm
 
+(** Call a VmClosure on the active VM if one exists, otherwise create a new one.
+    This is the path used by HO primitives (map, filter, for-each, some) so
+    callbacks can access upvalues that reference the calling VM's state. *)
+and call_closure_reuse cl args =
+  call_closure cl args cl.vm_env_ref
+
 (** Call a value as a function — dispatch by type.
     VmClosure: pushes frame on current VM (fast intra-VM path).
     Lambda: tries JIT then falls back to CEK.
@@ -629,4 +645,4 @@ let jit_compile_lambda (l : lambda) globals =
 (* Wire up forward references *)
 let () = jit_compile_ref := jit_compile_lambda
 let () = _vm_call_closure_ref := (fun cl args ->
-  call_closure cl args cl.vm_env_ref)
+  call_closure_reuse cl args)

shared/static/wasm/sx/engine.sx

@@ -86,20 +86,13 @@
   :effects (io)
   (fn
     (el)
-    (let
-      ((result nil))
-      (for-each
-        (fn
-          (verb)
-          (when
-            (not result)
-            (let
-              ((url (dom-get-attr el (str "sx-" verb))))
-              (when
-                url
-                (set! result (dict "method" (upper verb) "url" url))))))
-        ENGINE_VERBS)
-      result)))
+    (some
+      (fn
+        (verb)
+        (let
+          ((url (dom-get-attr el (str "sx-" verb))))
+          (if url (dict "method" (upper verb) "url" url) nil)))
+      ENGINE_VERBS)))
 
 (define
   build-request-headers

shared/static/wasm/sx_browser.bc.wasm.js

@@ -1792,7 +1792,7 @@
             blake2_js_for_wasm_create: blake2_js_for_wasm_create};
    }
    (globalThis))
-({"link":[["runtime-0db9b496",0],["prelude-d7e4b000",0],["stdlib-23ce0836",[]],["sx-31fbd690",[2]],["jsoo_runtime-f96b44a8",[2]],["js_of_ocaml-651f6707",[2,4]],["dune__exe__Sx_browser-c7255f12",[2,3,5]],["std_exit-10fb8830",[2]],["start-29cf9a72",0]],"generated":(b=>{var
+({"link":[["runtime-0db9b496",0],["prelude-d7e4b000",0],["stdlib-23ce0836",[]],["sx-48fa79b9",[2]],["jsoo_runtime-f96b44a8",[2]],["js_of_ocaml-651f6707",[2,4]],["dune__exe__Sx_browser-3f86f26c",[2,3,5]],["std_exit-10fb8830",[2]],["start-29cf9a72",0]],"generated":(b=>{var
 c=b,a=b?.module?.export||b;return{"env":{"caml_ba_kind_of_typed_array":()=>{throw new
 Error("caml_ba_kind_of_typed_array not implemented")},"caml_exn_with_js_backtrace":()=>{throw new
 Error("caml_exn_with_js_backtrace not implemented")},"caml_int64_create_lo_mi_hi":()=>{throw new

web/engine.sx

@@ -86,20 +86,13 @@
   :effects (io)
   (fn
     (el)
-    (let
-      ((result nil))
-      (for-each
-        (fn
-          (verb)
-          (when
-            (not result)
-            (let
-              ((url (dom-get-attr el (str "sx-" verb))))
-              (when
-                url
-                (set! result (dict "method" (upper verb) "url" url))))))
-        ENGINE_VERBS)
-      result)))
+    (some
+      (fn
+        (verb)
+        (let
+          ((url (dom-get-attr el (str "sx-" verb))))
+          (if url (dict "method" (upper verb) "url" url) nil)))
+      ENGINE_VERBS)))
 
 (define
   build-request-headers