Merge branch 'worktree-cssx-components' into macros

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

shared/sx/ref/eval.sx

@@ -143,7 +143,6 @@
               (= name "defcomp")     (sf-defcomp args env)
               (= name "defmacro")    (sf-defmacro args env)
               (= name "defstyle")    (sf-defstyle args env)
-              (= name "defkeyframes") (sf-defkeyframes args env)
               (= name "defhandler")  (sf-defhandler args env)
               (= name "defpage")     (sf-defpage args env)
               (= name "defquery")    (sf-defquery args env)
@@ -579,23 +578,13 @@
 
 (define sf-defstyle
   (fn (args env)
-    ;; (defstyle name expr) — bind name to evaluated expr (typically a StyleValue)
+    ;; (defstyle name expr) — bind name to evaluated expr (string, function, etc.)
     (let ((name-sym (first args))
           (value    (trampoline (eval-expr (nth args 1) env))))
       (env-set! env (symbol-name name-sym) value)
       value)))
 
 
-(define sf-defkeyframes
-  (fn (args env)
-    ;; (defkeyframes name (selector body) ...) — build @keyframes rule,
-    ;; register in keyframes dict, return StyleValue.
-    ;; Delegates to platform: build-keyframes returns a StyleValue.
-    (let ((kf-name (symbol-name (first args)))
-          (steps   (rest args)))
-      (build-keyframes kf-name steps env))))
-
-
 (define sf-begin
   (fn (args env)
     (if (empty? args)
@@ -952,9 +941,6 @@
 ;;   (zip lists...)           → list of tuples
 ;;
 ;;
-;; CSSX (style system):
-;;   (build-keyframes name steps env) → StyleValue (platform builds @keyframes)
-;;
 ;; Dynamic wind (for dynamic-wind):
 ;;   (push-wind! before after)  → void (push wind record onto stack)
 ;;   (pop-wind!)                → void (pop wind record from stack)