fez-lisp 1.5.149 → 1.5.151

package/package.json

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

package/src/compiler.js

@@ -53,7 +53,6 @@ const keywordToHelper = (name) => {
     case STATIC_TYPES.ABSTRACTIONS:
     case STATIC_TYPES.BOOLEANS:
     case STATIC_TYPES.COLLECTIONS:
-    case DEBUG.ASSERT:
     case DEBUG.LOG:
     case DEBUG.STRING:
       return '__identity'
@@ -132,7 +131,6 @@ const Helpers = {
   __identity: `__identity=(x)=>x`,
   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=(array,index,value)=>{array[index] = value;return array}`,
   pop_effect: `pop_effect=(array)=>{array.pop();return array}`
 }
@@ -279,10 +277,6 @@ const comp = (tree, Drill) => {
           Drill
         )}}return -1})();`
       }
-      case KEYWORDS.ERROR: {
-        Drill.Helpers.add('__error')
-        return `__error(${compile(tail[0], Drill)})`
-      }
 
       case STATIC_TYPES.ABSTRACTION:
       case STATIC_TYPES.COLLECTION:
@@ -295,7 +289,6 @@ const comp = (tree, Drill) => {
       case STATIC_TYPES.ABSTRACTIONS:
       case STATIC_TYPES.BOOLEANS:
       case STATIC_TYPES.COLLECTIONS:
-      case DEBUG.ASSERT:
       case DEBUG.LOG:
       case DEBUG.STRING:
         return compile(tail[0], Drill)

package/src/interpreter.js

@@ -816,22 +816,6 @@ export const keywords = {
       )
     return +(typeof evaluate(args[0], env) === 'function')
   },
-  [KEYWORDS.ERROR]: (args, env) => {
-    if (args.length !== 1)
-      throw new RangeError(
-        `Invalid number of arguments to (${KEYWORDS.ERROR}) (= 1 required) (${
-          KEYWORDS.ERROR
-        } ${stringifyArgs(args)})`
-      )
-    const expression = evaluate(args[0], env)
-    if (!Array.isArray(expression))
-      throw new TypeError(
-        `Argument of (${KEYWORDS.ERROR}) must be an (${
-          KEYWORDS.ARRAY_TYPE
-        }) but got (${expression}) (${KEYWORDS.ERROR} ${stringifyArgs(args)})`
-      )
-    throw new Error(expression.map((x) => String.fromCharCode(x)).join(''))
-  },
 
   [STATIC_TYPES.UNKNOWN]: (args, env) => evaluate(args[0], env),
   [STATIC_TYPES.ANY]: (args, env) => evaluate(args[0], env),

package/src/keywords.js

@@ -56,8 +56,7 @@ export const KEYWORDS = {
   DEFINE_VARIABLE: 'let',
 
   SET_ARRAY: 'set!',
-  POP_ARRAY: 'pop!',
-  ERROR: 'throw'
+  POP_ARRAY: 'pop!'
 }
 
 export const TYPES = {

package/src/types.js

@@ -385,15 +385,6 @@ export const SPECIAL_FORM_TYPES = {
       [RETURNS]: [COLLECTION]
     }
   },
-  [DEBUG.ASSERT]: {
-    [STATS]: {
-      [TYPE_PROP]: [APPLY],
-      [SIGNATURE]: DEBUG.ASSERT,
-      retried: Infinity,
-      [ARG_COUNT]: VARIADIC,
-      [RETURNS]: [UNKNOWN]
-    }
-  },
   [DEBUG.SIGNATURE]: {
     [STATS]: {
       [TYPE_PROP]: [APPLY],
@@ -1266,27 +1257,6 @@ export const SPECIAL_FORM_TYPES = {
       ],
       [RETURNS]: [ATOM, SPECIAL_BOOLEAN]
     }
-  },
-  [KEYWORDS.ERROR]: {
-    [STATS]: {
-      [TYPE_PROP]: [APPLY],
-      [SIGNATURE]: KEYWORDS.ERROR,
-      retried: Infinity,
-      [ARG_COUNT]: 1,
-      [ARGUMENTS]: [
-        {
-          [STATS]: {
-            retried: Infinity,
-            [SIGNATURE]: PLACEHOLDER,
-            [TYPE_PROP]: [COLLECTION],
-            [RETURNS]: [COLLECTION],
-            [ARGUMENTS]: [],
-            [ARG_COUNT]: 0
-          }
-        }
-      ],
-      [RETURNS]: [ANY]
-    }
   }
 }