wps

commit c90e738b5c7fb9014f249fd922f0c499afaf5604
parent a69a28bc04cd71838e5bf26fd5381adfbce0bfbe
Author: tomas <tomas@logand.com>
Date:   Sun, 24 Jan 2010 14:33:13 +0100

cvlit added

Diffstat:
M
wps.js
 | 
7
+++++++

1 file changed, 7 insertions(+), 0 deletions(-)
diff --git a/wps.js b/wps.js
@@ -323,6 +323,13 @@ function Wps() {
     // TODO string -> parse
     else Os.push(X);
   };
+  Sd["cvlit"] = function() {
+    var X = Os.pop();
+    if(isSymbol(X) && !isQuoted(X)) Os.push(quote(X)); // un-executable name
+    else if(isArray(X) && isQuoted(X)) Os.push(unquote(X)); // un-proc
+    // TODO reverse? string -> parse
+    else Os.push(X);
+  };
   // dictionary
   Sd["dict"] = function() {Os.pop(); Os.push({});};
   Sd["get"] = function() {