fez-lisp 1.4.19 → 1.5.0

package/package.json

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

package/src/compiler.js

@@ -115,7 +115,7 @@ const Helpers = {
   atom_predicate: `atom_predicate=(number)=>+(typeof number==='number')`,
   lambda_predicate: `lambda_predicate=(fn)=>+(typeof fn==='function')`,
   __error: `__error=(error)=>{throw new Error(error.map((x)=>String.fromCharCode(x)).join(''))}`,
-  set_effect: `set_effect=function(array,index,value){if(arguments.length===1){array.pop()}else{array[index] = value};return array}`
+  alter_effect: `alter_effect=function(array,index,value){if(arguments.length===1){array.pop()}else{array[index] = value};return array}`
 }
 const semiColumnEdgeCases = new Set([
   ';)',

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

@@ -40,7 +40,7 @@ export const KEYWORDS = {
   CALL_FUNCTION: 'apply',
   DEFINE_VARIABLE: 'let',
 
-  SET_ARRAY: 'set!',
+  SET_ARRAY: 'alter!',
   ERROR: 'throw'
 }
 

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,
@@ -291,21 +292,19 @@ export const debug = (ast, onSuccess = compile) => {
     ...keywords,
     [DEBUG.CALLSTACK]: [KEYWORDS.BLOCK],
     [DEBUG.SIGNATURE]: (args, env) => {
-      if (args.length !== 1)
-        throw new RangeError(
-          `Invalid number of arguments to (${DEBUG.SIGNATURE}) (= 1) (${
-            DEBUG.SIGNATURE
-          } ${stringifyArgs(args)})`
-        )
-      const name = args[0][VALUE]
-      const signatures = std[0][1][1].filter(
-        (x) =>
-          x[0][TYPE] === APPLY &&
-          x[0][VALUE] === KEYWORDS.DEFINE_VARIABLE &&
-          x[1][TYPE] === WORD &&
-          x[1][VALUE].toString().includes(name)
-      )
-      return signatures.map(LISP.source).join('\n\n')
+      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)