X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=prelude.js;h=b934132bfb9374a032fd4cb5ce020f7adb824f94;hb=3d960988cd3719466c60221eaa4df888e47b5d0e;hp=cf976a04a6d06bf3cdd3a405032e6f170265d988;hpb=845aad879287d067fffa6a872e03a24935bf8fc6;p=jscl.git

diff --git a/prelude.js b/prelude.js
index cf976a0..b934132 100644
--- a/prelude.js
+++ b/prelude.js
@@ -1,4 +1,6 @@
-function pv (x) { return x ; }
+var nil;
+
+function pv (x) { return x==undefined? nil: x; }
 
 function mv(){
     var r = [];
@@ -8,6 +10,10 @@ function mv(){
     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