HS: hs-id= runtime definition (restore from merge)

2026-04-26 18:06:29 +00:00
parent 7480c0f9c9
commit 820132b839
2 changed files with 18 additions and 0 deletions
--- a/lib/hyperscript/runtime.sx
+++ b/lib/hyperscript/runtime.sx
@@ -1432,6 +1432,15 @@
  hs-strict-eq
  (fn (a b) (and (= (type-of a) (type-of b)) (= a b))))

+(define
+  hs-id=
+  (fn
+    (a b)
+    (if
+      (and (= (host-typeof a) "element") (= (host-typeof b) "element"))
+      (hs-ref-eq a b)
+      (= a b))))
+
 (define
  hs-eq-ignore-case
  (fn (a b) (= (downcase (str a)) (downcase (str b)))))
--- a/shared/static/wasm/sx/hs-runtime.sx
+++ b/shared/static/wasm/sx/hs-runtime.sx
@@ -1432,6 +1432,15 @@
  hs-strict-eq
  (fn (a b) (and (= (type-of a) (type-of b)) (= a b))))

+(define
+  hs-id=
+  (fn
+    (a b)
+    (if
+      (and (= (host-typeof a) "element") (= (host-typeof b) "element"))
+      (hs-ref-eq a b)
+      (= a b))))
+
 (define
  hs-eq-ignore-case
  (fn (a b) (= (downcase (str a)) (downcase (str b)))))