HS: parser attaches source spans to AST nodes

lib/hyperscript/compiler.sx

@@ -789,11 +789,12 @@
               (cons (quote do) (map hs-to-sx body)))))))
     (fn
       (ast)
-      (cond
-        ((nil? ast) nil)
-        ((number? ast) ast)
-        ((string? ast) ast)
-        ((boolean? ast) ast)
+      (let ((ast (if (and (dict? ast) (get ast :hs-ast)) (get ast :children) ast)))
+        (cond
+          ((nil? ast) nil)
+          ((number? ast) ast)
+          ((string? ast) ast)
+          ((boolean? ast) ast)
         ((and (symbol? ast) (= (str ast) "sender"))
           (list (quote hs-sender) (quote event)))
         ((not (list? ast)) ast)
@@ -2207,7 +2208,7 @@
                 (list (quote hs-halt!) (quote event) (nth ast 1)))
               ((= head (quote focus!))
                 (list (quote dom-focus) (hs-to-sx (nth ast 1))))
-              (true ast))))))))
+              (true ast)))))))))
 
 ;; ── Convenience: source → SX ─────────────────────────────────
 (define hs-to-sx-from-source (fn (src) (hs-to-sx (hs-compile src))))