fez-lisp 1.2.35 → 1.2.37

package/README.md

@@ -246,5 +246,5 @@ console.log(fez(tree(`(+ (|> 1 (+ 2) (* 3) (- 1)) (- (* (+ 1 2) 3) 1))`)))
 (/ ...) (+ ...) (* ...) (- ...) (= ...) (< ...) (> ...) (>= ...) (<= ...) (& ...) (~ ...) (| ...) (^ ...) (<< ...) (>> ...) (>>> ...)
 (mod ...) (let ...) (if ...) (not ...) (and ...) (or ...) (cond ...) (atom? ...) (lambda? ...)
 (length ...) (do ...) (array ...) (set! ...) (get ...) (lambda ...) (apply ...)
-(throw ...) (assert ...)
+(throw ...)
 ```

package/package.json

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

package/src/compiler.js

@@ -130,7 +130,8 @@ const semiColumnEdgeCases = new Set([
   ';?',
   ',,',
   ';;',
-  ';]'
+  ';]',
+  ';^'
 ])
 const parse = (Arguments, Drill) => Arguments.map((x) => compile(x, Drill))
 const parseArgs = (Arguments, Drill, separator = ',') =>
@@ -142,8 +143,6 @@ const compile = (tree, Drill) => {
   const token = first[VALUE]
   if (first[TYPE] === APPLY) {
     switch (token) {
-      case KEYWORDS.ASSERT:
-        return '0'
       case KEYWORDS.BLOCK: {
         if (Arguments.length > 1) {
           return `(${Arguments.map((x) =>

package/src/interpreter.js

@@ -1,13 +1,4 @@
-import {
-  TYPE,
-  VALUE,
-  WORD,
-  KEYWORDS,
-  FALSE,
-  TRUE,
-  TYPES,
-  APPLY
-} from './keywords.js'
+import { TYPE, VALUE, WORD, KEYWORDS, FALSE, TRUE, TYPES } from './keywords.js'
 import { evaluate } from './evaluator.js'
 import { isForbiddenVariableName, stringifyArgs } from './utils.js'
 const keywords = {
@@ -827,48 +818,6 @@ const keywords = {
         }) but got (${expression}) (${KEYWORDS.THROW} ${stringifyArgs(args)})`
       )
     throw new Error(expression.map((x) => String.fromCharCode(x)).join(''))
-  },
-
-  [KEYWORDS.ASSERT]: (args, env) => {
-    if (args.length < 2)
-      throw new RangeError(
-        `Invalid number of arguments for (${
-          KEYWORDS.ASSERT
-        }), expected (> 2 required) but got ${args.length} (${
-          KEYWORDS.ASSERT
-        } ${stringifyArgs(args)})`
-      )
-    if (args.length % 2 !== 0)
-      throw new RangeError(
-        `Invalid number of arguments for (${
-          KEYWORDS.ASSERT
-        }), expected even number of arguments but got ${args.length} (${
-          KEYWORDS.ASSERT
-        } ${stringifyArgs(args)})`
-      )
-    for (let i = 0; i < args.length; i += 2) {
-      const condition = evaluate(args[i], env)
-      if (condition !== FALSE && condition !== TRUE)
-        throw new TypeError(
-          `Condition of (${
-            KEYWORDS.ASSERT
-          }) must be ${TRUE} or ${FALSE} but got (${
-            KEYWORDS.ASSERT
-          } ${stringifyArgs(args)})`
-        )
-      if (condition) {
-        const error = args[i + 1]
-        if (error[0][TYPE] === APPLY && error[0][VALUE] === KEYWORDS.THROW)
-          return evaluate(error, env)
-        else
-          throw new TypeError(
-            `Concequence of (${KEYWORDS.ASSERT}) must be (${
-              KEYWORDS.THROW
-            }) but got (${KEYWORDS.ASSERT} ${stringifyArgs(args)})`
-          )
-      }
-    }
-    return 0
   }
 }
 

package/src/keywords.js

@@ -50,7 +50,6 @@ export const KEYWORDS = {
   CLEAR_CONSOLE: 'clear!',
 
   THROW: 'throw',
-  ASSERT: 'assert',
 
   // Syntactic suggars
   PIPE: '|>',