X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=prelude.js;h=38a13d7fdb52ce9d7d011b820d885498eed2ad8e;hb=3731b8083a84b9a804935f2de32fcf2b8f78cfd1;hp=dab0484bbf740e924bff2d8632125c265968436e;hpb=69e2c35ff134e83845c79f77032259cc92890ce8;p=jscl.git

diff --git a/prelude.js b/prelude.js
index dab0484..38a13d7 100644
--- a/prelude.js
+++ b/prelude.js
@@ -1,13 +1,25 @@
-function pv (x) { return x ; }
+// 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;
 }
 
+function forcemv (x) {
+    return typeof x == 'object' && 'multiple-value' in x? x: mv(x);
+}
+
 // NOTE: Define VALUES to be MV for toplevel forms. It is because
 // `eval' compiles the forms and execute the Javascript code at
 // toplevel with `js-eval', so it is necessary to return multiple
@@ -21,3 +33,22 @@ function checkArgsAtLeast(args, n){
 function checkArgsAtMost(args, n){
     if (args.length > n) throw 'too many arguments';
 }
+
+function checkArgs(args, n){
+    checkArgsAtLeast(args, n);
+    checkArgsAtMost(args, n);
+}
+
+// Improper list constructor (like LIST*)
+function QIList(){
+    if (arguments.length == 1)
+        return arguments[0];
+    else {
+        var i = arguments.length-1;
+        var r = arguments[i--];
+        for (; i>=0; i--){
+            r = {car: arguments[i], cdr: r};
+        }
+        return r;
+    }
+}