HS: sourceInfo 4/4 + arrayLiteral 8/8 (+5 tests)

- tokenizer hs-emit!: add :end (max pos, start+len(val)) and :line fields to tokens
- parser hs-parse-ast: wrap fn body in do so set! hs-span-mode executes
- runtime hs-make-object: remove _order key (V8 native insertion order sufficient)

lib/hyperscript/parser.sx

@@ -2999,6 +2999,7 @@
 
 (define hs-parse-ast
   (fn (src)
-    (set! hs-span-mode true)
+    (do
-    (let ((result (hs-parse (hs-tokenize src) src)))
+      (set! hs-span-mode true)
-      (do (set! hs-span-mode false) result))))
+      (let ((result (hs-parse (hs-tokenize src) src)))
+        (do (set! hs-span-mode false) result)))))

lib/hyperscript/runtime.sx

@@ -2156,20 +2156,13 @@
   (fn
     (pairs)
     (let
-      ((d {}) (order (list)))
+      ((d {}))
       (do
         (for-each
           (fn
             (pair)
-            (let
+            (dict-set! d (first pair) (nth pair 1)))
-              ((k (first pair)))
-              (do
-                (when
-                  (not (dict-has? d k))
-                  (set! order (append order (list k))))
-                (dict-set! d k (nth pair 1)))))
           pairs)
-        (when (not (empty? order)) (dict-set! d "_order" order))
         d))))
 
 (define

lib/hyperscript/tokenizer.sx

@@ -460,7 +460,13 @@
         hs-emit!
         (fn
           (type value start)
-          (append! tokens (hs-make-token type value start))))
+          (let
+            ((tok (hs-make-token type value start))
+              (end-pos (max pos (+ start (if (nil? value) 0 (len (str value)))))))
+            (do
+              (dict-set! tok "end" end-pos)
+              (dict-set! tok "line" (len (split (slice src 0 start) "\n")))
+              (append! tokens tok)))))
       (define
         scan!
         (fn

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

@@ -2999,6 +2999,7 @@
 
 (define hs-parse-ast
   (fn (src)
-    (set! hs-span-mode true)
+    (do
-    (let ((result (hs-parse (hs-tokenize src) src)))
+      (set! hs-span-mode true)
-      (do (set! hs-span-mode false) result))))
+      (let ((result (hs-parse (hs-tokenize src) src)))
+        (do (set! hs-span-mode false) result)))))

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

@@ -2156,20 +2156,13 @@
   (fn
     (pairs)
     (let
-      ((d {}) (order (list)))
+      ((d {}))
       (do
         (for-each
           (fn
             (pair)
-            (let
+            (dict-set! d (first pair) (nth pair 1)))
-              ((k (first pair)))
-              (do
-                (when
-                  (not (dict-has? d k))
-                  (set! order (append order (list k))))
-                (dict-set! d k (nth pair 1)))))
           pairs)
-        (when (not (empty? order)) (dict-set! d "_order" order))
         d))))
 
 (define

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

@@ -460,7 +460,13 @@
         hs-emit!
         (fn
           (type value start)
-          (append! tokens (hs-make-token type value start))))
+          (let
+            ((tok (hs-make-token type value start))
+              (end-pos (max pos (+ start (if (nil? value) 0 (len (str value)))))))
+            (do
+              (dict-set! tok "end" end-pos)
+              (dict-set! tok "line" (len (split (slice src 0 start) "\n")))
+              (append! tokens tok)))))
       (define
         scan!
         (fn