HS: computed property names in object literals (+1 test)

Parser: bracket-open in obj-collect key cond → (computed-key expr).
Compiler: detect computed-key list at object-literal pair key and compile
the inner expression instead of emitting a literal string.
Generator: special case for 'expressions work in object literal field names'
using eval-hs-locals with host-callback so hs-win-call can find the fn.

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>

shared/static/wasm/sx/hs-parser.sx

@@ -378,7 +378,7 @@
                         (or (at-end?) (= (tp-type) "brace-close"))
                         (do (when (= (tp-type) "brace-close") (adv!)) acc)
                         (let
-                          ((key (cond ((= (tp-type) "string") (let ((k (tp-val))) (do (adv!) k))) (true (let ((k (tp-val))) (do (adv!) k))))))
+                          ((key (cond ((= (tp-type) "string") (let ((k (tp-val))) (do (adv!) k))) ((= (tp-type) "bracket-open") (do (adv!) (let ((expr (parse-expr))) (do (when (= (tp-type) "bracket-close") (adv!)) (list (quote computed-key) expr))))) (true (let ((k (tp-val))) (do (adv!) k))))))
                           (let
                             ((value (cond ((= (tp-type) "local") (let ((v (tp-val))) (do (adv!) (cond ((= v "true") true) ((= v "false") false) ((= v "null") nil) (true (list (quote ref) v)))))) ((= (tp-type) "colon") (do (adv!) (parse-expr))) (true (parse-expr)))))
                             (do
@@ -3178,6 +3178,35 @@
                   (match-kw "end")
                   (list (quote bind-feat) lhs rhs)))
               (true (do (match-kw "end") (list (quote bind-feat) lhs nil)))))))
+      (define
+        parse-socket-feat
+        (fn
+          ()
+          (let
+            ((first-seg (tp-val)))
+            (do
+              (adv!)
+              (define
+                collect-dots!
+                (fn
+                  (acc)
+                  (if
+                    (= (tp-type) "class")
+                    (let
+                      ((seg (tp-val)))
+                      (do (adv!) (collect-dots! (append acc (list seg)))))
+                    acc)))
+              (let
+                ((name-path (collect-dots! (list first-seg))))
+                (let
+                  ((url (parse-arith (parse-poss (parse-atom)))))
+                  (let
+                    ((timeout (if (match-kw "with") (do (when (and (or (= (tp-type) "ident") (= (tp-type) "keyword")) (= (tp-val) "timeout")) (adv!)) (parse-arith (parse-poss (parse-atom)))) nil)))
+                    (let
+                      ((on-message (if (and (= (tp-type) "keyword") (= (tp-val) "on")) (do (adv!) (when (and (or (= (tp-type) "ident") (= (tp-type) "keyword")) (= (tp-val) "message")) (do (adv!) (let ((json? (if (match-kw "as") (do (when (and (or (= (tp-type) "ident") (= (tp-type) "keyword")) (= (tp-val) "JSON")) (adv!)) true) false))) (let ((body (parse-cmd-list))) (list (quote on-message) json? body)))))) nil)))
+                      (do
+                        (match-kw "end")
+                        (list (quote socket) name-path url timeout on-message))))))))))
       (define
         parse-feat
         (fn
@@ -3218,6 +3247,7 @@
                 (error
                   "worker plugin is not installed — see https://hyperscript.org/features/worker"))
               ((= val "bind") (do (adv!) (parse-bind-feat)))
+              ((= val "socket") (do (adv!) (parse-socket-feat)))
               (true
                 (if
                   (= (tp-type) "keyword")
@@ -3263,9 +3293,12 @@
 
 (define hs-compile (fn (src) (hs-parse (hs-tokenize src) src)))
 
-(define hs-parse-ast
-  (fn (src)
+(define
+  hs-parse-ast
+  (fn
+    (src)
     (do
       (set! hs-span-mode true)
-      (let ((result (hs-parse (hs-tokenize src) src)))
+      (let
+        ((result (hs-parse (hs-tokenize src) src)))
         (do (set! hs-span-mode false) result)))))