git » jacl.git » commit cadb1a5

Add JACL:TRUTH

author Alan Dipert
2020-01-14 04:08:28 UTC
committer Alan Dipert
2020-01-14 04:08:28 UTC
parent 65313b438be6195840cc8e5a58d0a909154cd4a2

Add JACL:TRUTH

jacl.js +4 -1

diff --git a/jacl.js b/jacl.js
index 4caa9bc..97f08b1 100644
--- a/jacl.js
+++ b/jacl.js
@@ -1914,6 +1914,9 @@ JACLPKG.intern('.')
   };
 JACLPKG.exportSymbol('.');
 
+JACLPKG.intern('TRUTH').fvalue = x => (x != null && x !== false) || null;
+JACLPKG.exportSymbol('TRUTH');
+
 let replInputStream = new BufferedStream(),
     replReader = new Reader(replInputStream);
 
@@ -1925,7 +1928,7 @@ const startRepl = async () => {
       const sb = new StringBuffer();
       emitNode(sb.append.bind(sb), node);
       const code = sb.toString();
-      console.log('code="',code,'"');
+      //console.log('code="',code,'"');
       const result = eval(code);
       console.log(result);
     }