trying to fight the code expansion

get-module-bytecode.rkt

@@ -81,7 +81,8 @@
                             (lambda (ip)
                               (get-compiled-code-from-port ip)))
                           )])
-    (parameterize ([compile-context-preservation-enabled #f])
+    ;; Note: we're trying to preserve the context, to avoid code expansion.
+    (parameterize ([compile-context-preservation-enabled #t])
       (get-module-code p))))
 
 
@@ -90,7 +91,8 @@
 (define (get-compiled-code-from-port ip)
   ;(printf "get-compiled-code-from-port\n")
   (parameterize ([read-accept-reader #t]
-                 [compile-context-preservation-enabled #f]
+                 ;; Note: we're trying to preserve the context, to avoid code expansion.
+                 [compile-context-preservation-enabled #t]
                  [current-namespace base-namespace])
     (define stx (read-syntax (object-name ip) ip))
     ;(printf "got stx; now expanding out the images\n")

js-assembler/assemble-expression.rkt

@@ -60,4 +60,4 @@
     [(CallKernelPrimitiveProcedure? op)
      (open-code-kernel-primitive-procedure op blockht)]
     [(ApplyPrimitiveProcedure? op)
-     "M.p.rawImpl(M)"]))
+     "M.p._i(M)"]))

js-assembler/assemble.rkt

@@ -567,8 +567,12 @@ EOF
       (let: ([skip : OpArg (PopEnvironment-skip stmt)])
         (cond
           [(and (Const? skip) (= (ensure-natural (Const-const skip)) 0))
-           (format "M.e.length-=~a;"
+           (cond [(equal? (PopEnvironment-n stmt)
-                   (assemble-oparg (PopEnvironment-n stmt) blockht))]
+                          (make-Const 1))
+                  "M.e.pop();"]
+                 [else
+                  (format "M.e.length-=~a;"
+                          (assemble-oparg (PopEnvironment-n stmt) blockht))])]
           [else
            (format "M.e.splice(M.e.length-(~a+~a),~a);"
                    (assemble-oparg (PopEnvironment-skip stmt) blockht)

js-assembler/runtime-src/baselib-functions.js

@@ -327,7 +327,7 @@
                                },
                                []);
         // Also, record the raw implementation of the function.
-        proc.rawImpl = f;
+        proc._i = f;
         return proc;
     };
 

version.rkt

@@ -6,4 +6,4 @@
 
 (provide version)
 (: version String)
-(define version "1.50")
+(define version "1.51")