fez-lisp 1.4.18 → 1.4.20

package/package.json

@@ -2,7 +2,7 @@
   "name": "fez-lisp",
   "description": "Lisp interpreted & compiled to JavaScript",
   "author": "AT290690",
-  "version": "1.4.18",
+  "version": "1.4.20",
   "type": "module",
   "main": "index.js",
   "keywords": [

package/src/interpreter.js

@@ -528,7 +528,7 @@ export const keywords = {
           KEYWORDS.NOT
         } ${stringifyArgs(args)})`
       )
-    return +!evaluate(args[0], env)
+    return +!operand
   },
   [KEYWORDS.EQUAL]: (args, env) => {
     if (args.length !== 2)

package/src/keywords.js

@@ -56,6 +56,7 @@ export const RUNTIME_TYPES = {
 export const DEBUG = {
   LOG: 'log',
   ASSERT: 'assert',
+  SIGNATURE: '?',
   CALLSTACK: '(CALLSTACK)' // so that you can't use it in the code
 }
 

package/src/utils.js

@@ -1,4 +1,5 @@
 import std from '../lib/baked/std.js'
+import debugStd from '../lib/debug/std.js'
 import { compile } from './compiler.js'
 import {
   APPLY,
@@ -290,6 +291,21 @@ export const debug = (ast, onSuccess = compile) => {
   const debugEnv = {
     ...keywords,
     [DEBUG.CALLSTACK]: [KEYWORDS.BLOCK],
+    [DEBUG.SIGNATURE]: (args, env) => {
+      const signatures =
+        args.length === 0
+          ? debugStd[0][1][1].slice(1)
+          : debugStd[0][1][1].filter(
+              (x) =>
+                x[0][TYPE] === APPLY &&
+                x[0][VALUE] === KEYWORDS.DEFINE_VARIABLE &&
+                x[1][TYPE] === WORD &&
+                x[1][VALUE].toString().includes(args[0][VALUE])
+            )
+      return signatures.length === 0
+        ? 'Not defined in library'
+        : signatures.map(LISP.source).join('\n\n')
+    },
     [DEBUG.LOG]: (args, env) => {
       if (args.length !== 1 && args.length !== 2)
         throw new RangeError(