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 ->