Hyperscript test generator: repeat loop fix, assert= arg order, quote handling

- Don't insert 'then' inside for-in loop bodies or after 'repeat N times'
  (fixes repeat from 1/30 → 5/30)
- Allow HS sources ending with " when they don't contain embedded HTML
  (fixes set from 6/25 → 10/25, enables 18 previously-skipped tests)
- Fix assert= argument order: (actual expected), not (expected actual)
  (error messages now correctly report Expected/Got)

395 → 402/831 (+7)

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

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

@@ -1553,20 +1553,18 @@
             cl-collect
             (fn
               (acc)
-              (do
-                (match-kw "then")
-                (let
-                  ((cmd (parse-cmd)))
-                  (if
-                    (nil? cmd)
-                    acc
-                    (let
-                      ((acc2 (append acc (list cmd))))
-                      (cond
-                        ((match-kw "then") (cl-collect acc2))
-                        ((and (not (at-end?)) (= (tp-type) "keyword") (cmd-kw? (tp-val)))
-                          (cl-collect acc2))
-                        (true acc2))))))))
+              (let
+                ((cmd (parse-cmd)))
+                (if
+                  (nil? cmd)
+                  acc
+                  (let
+                    ((acc2 (append acc (list cmd))))
+                    (cond
+                      ((match-kw "then") (cl-collect acc2))
+                      ((and (not (at-end?)) (= (tp-type) "keyword") (cmd-kw? (tp-val)))
+                        (cl-collect acc2))
+                      (true acc2)))))))
           (let
             ((cmds (cl-collect (list))))
             (cond