fez-lisp 1.4.5 → 1.4.6

package/package.json

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

package/src/interpreter.js

@@ -774,7 +774,11 @@ export const keywords = {
           writable: true
         })
       }
-      if (name && Array.isArray(env[DEBUG.CALLSTACK]))
+      if (
+        name &&
+        Array.isArray(env[DEBUG.CALLSTACK]) &&
+        name !== env[DEBUG.CALLSTACK].at(-1)
+      )
         env[DEBUG.CALLSTACK].push(name)
       return evaluate(body, localEnv)
     }

package/src/utils.js

@@ -232,39 +232,6 @@ export const wrapInBlock = (ast) => [
 ]
 export const interpret = (ast, keywords) =>
   ast.reduce((_, x) => evaluate(x, keywords), 0)
-export const fez = (source, options = {}) => {
-  const env = { ...keywords }
-  try {
-    if (typeof source === 'string') {
-      source = deSuggarSource(source)
-      const valid = handleUnbalancedQuotes(
-        handleUnbalancedParens(removeNoCode(source))
-      )
-      const code = !options.mutation ? removeMutation(valid) : valid
-      if (!code.length && options.throw) throw new Error('Nothing to parse!')
-      const parsed = LISP.parse(code)
-      const scope = deSuggarAst(parsed)
-      const ast = wrapInBlock(shake(scope, std))
-      // if (options.check) typeCheck(ast)
-      if (options.compile) return compile(ast)
-      return evaluate(ast, env)
-    } else if (Array.isArray(source)) {
-      const ast = !options.mutation
-        ? AST.parse(AST.stringify(source).replace(new RegExp(/!/g), 'ǃ'))
-        : source
-      if (options.compile) return compile(ast)
-      return evaluate(ast, env)
-    } else {
-      throw new Error('Source has to be either a lisp source code or an AST')
-    }
-  } catch (error) {
-    const err = error.message.replace("'[object Array]'", '(array)')
-    // .replace('object', '(array)')
-    logError(err)
-    if (options.throw) throw err
-    return err
-  }
-}
 export const shake = (parsed, std) => treeShake(parsed, std).concat(parsed)
 export const tree = (source, std) =>
   std