X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=prelude.js;h=38a13d7fdb52ce9d7d011b820d885498eed2ad8e;hb=1feb6093af9417a611ecd57c25f3f69cc9dff73b;hp=b934132bfb9374a032fd4cb5ce020f7adb824f94;hpb=b8e4b54644d537d32a07e8570672d11728379f8d;p=jscl.git

diff --git a/prelude.js b/prelude.js
index b934132..38a13d7 100644
--- a/prelude.js
+++ b/prelude.js
@@ -1,12 +1,18 @@
+// This file is prepended to the result of compile ecmalisp.lisp, and
+// contain runtime code that ecmalisp assumes to exist.
+
+var window = this;
 var nil;
 
+function globalEval (x) {
+    return eval.call (window, x);
+}
+
 function pv (x) { return x==undefined? nil: x; }
 
 function mv(){
-    var r = [];
+    var r = [].slice.call(arguments);
     r['multiple-value'] = true;
-    for (var i=0; i<arguments.length; i++)
-        r.push(arguments[i]);
     return r;
 }