trying to implement the optimization on primitive application, to reduce code size.

js-assembler/find-primitive-implemented.rkt

@@ -0,0 +1,27 @@
+#lang racket/base
+
+(require racket/runtime-path
+         racket/list
+         (for-syntax racket/base))
+
+;; Provides a list of symbols of the function implemented primitively.  Knowing
+;; this allows us to do certain procedure applications more efficiently without
+;; touching the stack so much.
+(provide primitive-ids)
+
+(define a-regexp 
+  #px"installPrimitiveProcedure\\s*\\(\\s*['\"]([^'\"]+)['\"]")
+
+(define-runtime-path baselib-primitives.js
+  (build-path "runtime-src" "baselib-primitives.js"))
+
+(define ip (open-input-file baselib-primitives.js))
+
+(define primitive-ids
+  (let loop ()
+    (let ([a-match (regexp-match a-regexp ip)])
+      (cond
+        [a-match => (lambda (a-match)
+                      (cons (string->symbol (bytes->string/utf-8 (second a-match)))
+                            (loop)))]
+        [else empty]))))

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

@@ -317,18 +317,18 @@
 
 
     var makePrimitiveProcedure = function (name, arity, f) {
-        // f.racketArity = arity;
+        var proc = makeClosure(name,
-        // f.displayName = name;
+                               arity,
-        // return f;
+                               function(M) {
-        return makeClosure(name,
+                                   --M.cbt;
-                           arity,
+                                   M.v = f(M);
-                           function(M) {
+                                   M.e.length -= M.a;
-                               --M.cbt;
+                                   return M.c.pop().label(M);
-                               M.v = f(M);
+                               },
-                               M.e.length -= M.a;
+                               []);
-                               return M.c.pop().label(M);
+        // Also, record the raw implementation of the function.
-                           },
+        proc.rawImpl = f;
-                           []);
+        return proc;
     };
 
 

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

@@ -2476,6 +2476,21 @@
             return baselib.contmarks.DEFAULT_CONTINUATION_PROMPT_TAG;
         });
 
+    installPrimitiveProcedure(
+        'current-inexact-milliseconds',
+        0,
+        function(M) {
+            return makeFloat((new Date()).valueOf());
+        });
+
+
+    installPrimitiveProcedure(
+        'current-seconds',
+        0,
+        function() {
+            return Math.floor( (new Date()).getTime() / 1000 );
+        });
+
     exports['Primitives'] = Primitives;
     exports['installPrimitiveProcedure'] = installPrimitiveProcedure;
     exports['installPrimitiveClosure'] = installPrimitiveClosure;

lang/kernel.rkt

@@ -204,6 +204,10 @@
          prop:exn:srclocs
 
 
+         current-inexact-milliseconds
+         current-seconds
+         
+         
          ;; needed for cs019-local
          #%stratified-body
          )

version.rkt

@@ -6,4 +6,4 @@
 
 (provide version)
 (: version String)
-(define version "1.47")
+(define version "1.48")