initial namespacing done

assemble-helpers.rkt

@@ -65,7 +65,7 @@
               [(void? val)
                "null"]
               [(empty? val)
-               (format "Primitives.null")]
+               (format "RUNTIME.NULL")]
               [(number? val)
                (format "(~s)" val)]
               [else

assemble-open-coded.rkt

@@ -77,12 +77,12 @@
            (let loop ([checked-operands checked-operands])
              (cond
                [(empty? checked-operands)
-                "Primitives.null"]
+                "RUNTIME.NULL"]
                [else
                 (format "[~a,~a]" (first checked-operands) (loop (rest checked-operands)))]))]
           
           [(null?)
-           (format "(~a === Primitives.null)" (first checked-operands))]
+           (format "(~a === RUNTIME.NULL)" (first checked-operands))]
 
           [(not)
            (format "(!(~a))" (first checked-operands))]
@@ -133,7 +133,7 @@
                            [(box)
                             (format "(typeof(~a) === 'object' && (~a).length === 1)"
                                     operand-string operand-string)])])
-           (format "((~a) ? (~a) : raise(new Error('Expected ' + ~s + ' as argument ' + ~s + ' but received ' + ~a)))"
+           (format "((~a) ? (~a) : RUNTIME.raise(new Error('Expected ' + ~s + ' as argument ' + ~s + ' but received ' + ~a)))"
                    test-string
                    operand-string
                    (symbol->string domain)

runtime.js

@@ -99,11 +99,14 @@ if(this['plt'] === undefined) {
 	new ContinuationPromptTag("default-continuation-prompt-tag");
 
 
+    var NULL = [];
 
-    // A primitive function is just a Javascript function.
 
 
 
+    var raise = function(e) { throw e; }
+
+
 
 
     // testArgument: (X -> boolean) X number string string -> boolean
@@ -165,10 +168,6 @@ if(this['plt'] === undefined) {
     var isNumber = function(x) { return typeof(x) === 'number'; };
 
 
-    var raise = function(e) { throw e; }
-
-
-    var NULL = [];
     
 
     // Primtitives are the set of primitive values.  Not all primitives

test-conform-browser.rkt

@@ -24,7 +24,7 @@
                     
                     (fprintf op #<<EOF
 return (function(succ, fail, params) {
-            return innerInvoke(MACHINE, succ, fail, params);
+            return innerInvoke(new plt.runtime.Machine(), succ, fail, params);
         });
 });
 EOF