Simple inlining of immediate calls

module/language/js-il/compile-javascript.scm

@@ -2,9 +2,11 @@
   #:use-module (ice-9 match)
   #:use-module ((language js-il) #:renamer (symbol-prefix-proc 'il:))
   #:use-module (language javascript)
+  #:use-module (language js-il direct)
   #:export (compile-javascript))
 
 (define (compile-javascript exp env opts)
+  (set! exp (remove-immediate-calls exp))
   (values (compile-exp exp) env env))
 
 (define *scheme* (make-id "scheme"))

module/language/js-il/direct.scm

@@ -0,0 +1,36 @@
+(define-module (language js-il direct)
+  #:use-module (ice-9 match)
+  #:use-module (language js-il)
+  #:export (remove-immediate-calls))
+
+(define (remove-immediate-calls exp)
+  (match exp
+    (($ program entry body)
+     (make-program (remove-immediate-calls entry)
+                   (map remove-immediate-calls body)))
+
+    (($ continuation params body)
+     (make-continuation params (remove-immediate-calls body)))
+
+    (($ function name params body)
+     (make-function name params (remove-immediate-calls body)))
+
+    (($ local
+        (($ var id ($ continuation () body)))
+        ($ continue id ()))
+     (remove-immediate-calls body))
+
+    (($ local
+        (($ var id ($ continuation (arg) body)))
+        ($ continue id (val)))
+     (make-local (list (make-var arg val))
+                 (remove-immediate-calls body)))
+
+    (($ local bindings body)
+     (make-local (map remove-immediate-calls bindings)
+                 (remove-immediate-calls body)))
+
+    (($ var id exp)
+     (make-var id (remove-immediate-calls exp)))
+
+    (exp exp)))