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>
This commit is contained in:
@@ -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
|
||||
|
||||
File diff suppressed because one or more lines are too long
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user