HS: fetch don't throw contraction (+1 test)

2026-04-26 10:15:44 +00:00
parent 3a755947ef
commit 1b1b67c72e
4 changed files with 78 additions and 32 deletions
--- a/lib/hyperscript/tokenizer.sx
+++ b/lib/hyperscript/tokenizer.sx
@@ -536,10 +536,26 @@
                (do
                  (let
                    ((word (read-ident start)))
-                    (hs-emit!
-                      (if (hs-keyword? word) "keyword" "ident")
-                      word
-                      start))
+                    (let
+                      ((full-word
+                         (if
+                           (and
+                             (< pos src-len)
+                             (= (hs-cur) "'")
+                             (< (+ pos 1) src-len)
+                             (hs-letter? (hs-peek 1))
+                             (not
+                               (and
+                                 (= (hs-peek 1) "s")
+                                 (or
+                                   (>= (+ pos 2) src-len)
+                                   (not (hs-ident-char? (hs-peek 2)))))))
+                           (do (hs-advance! 1) (str word "'" (read-ident pos)))
+                           word)))
+                      (hs-emit!
+                        (if (hs-keyword? full-word) "keyword" "ident")
+                        full-word
+                        start)))
                  (scan!))
                (and
                  (or (= ch "=") (= ch "!") (= ch "<") (= ch ">"))