forth: inline primitive calls in colon-def body (skip forth-execute-word)

lib/forth/compiler.sx

@@ -34,6 +34,10 @@
 ;; to the prior X — matching standard Forth redefinition semantics.
 ;; RECURSE is the one exception: it stays late-bound against the not-yet-
 ;; installed current definition.
+;; Inline primitive calls: skip the `forth-execute-word` indirection by
+;; appending the word's body fn directly (forth-execute-word body
+;; reduces to `((get w "body") state)`, which is exactly what the body
+;; fn already is). Saves one frame per call op in every colon-def.
 (define
   forth-compile-call
   (fn
@@ -43,9 +47,7 @@
       (if
         (nil? w)
         (forth-error state (str name " ?"))
-        (let
-          ((op (fn (s) (forth-execute-word s w))))
-          (forth-def-append! state op))))))
+        (forth-def-append! state (get w "body"))))))
 
 (define
   forth-compile-recurse