Aser adapter compiles + loads as VM module — first VM execution

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

spec/compiler.sx

@@ -394,9 +394,16 @@
           (fn-em (make-emitter)))
       ;; Mark as function boundary — upvalue captures happen here
       (dict-set! fn-scope "is-function" true)
-      ;; Define params as locals in fn scope
+      ;; Define params as locals in fn scope.
+      ;; Handle type annotations: (name :as type) → extract name
       (for-each (fn (p)
-        (let ((name (if (= (type-of p) "symbol") (symbol-name p) p)))
+        (let ((name (cond
+                      (= (type-of p) "symbol") (symbol-name p)
+                      ;; Type-annotated param: (name :as type)
+                      (and (list? p) (not (empty? p))
+                           (= (type-of (first p)) "symbol"))
+                        (symbol-name (first p))
+                      :else p)))
           (when (and (not (= name "&key"))
                      (not (= name "&rest")))
             (scope-define-local fn-scope name))))