fez-lisp 1.6.30 → 1.6.32

package/package.json

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

package/src/debugger.js

@@ -835,7 +835,13 @@ const keywords = {
   [STATIC_TYPES.NUMBERS]: (args, env) => evaluate(args[0], env),
   [STATIC_TYPES.COLLECTIONS]: (args, env) => evaluate(args[0], env),
   [STATIC_TYPES.ABSTRACTIONS]: (args, env) => evaluate(args[0], env),
-  [STATIC_TYPES.BOOLEANS]: (args, env) => evaluate(args[0], env)
+  [STATIC_TYPES.BOOLEANS]: (args, env) => evaluate(args[0], env),
+
+  [DEBUG.TYPE_SIGNATURE]: (args, env) => evaluate(args[0], env),
+  [DEBUG.SIGNATURE]: (args, env) => evaluate(args[0], env),
+  [DEBUG.STRING]: (args, env) => evaluate(args[0], env),
+  [DEBUG.UNQUOTED_STRING]: (args, env) => evaluate(args[0], env),
+  [DEBUG.LOG]: (args, env) => evaluate(args[0], env)
 }
 const debugStack = []
 const evaluate = (exp, env = keywords) => {
@@ -882,9 +888,10 @@ export const startDebug = (ast, speed = 250, start, end) => {
   debugStack.length = 0
   evaluate(ast)
   start = start ? debugStack.findIndex(start) : 0
-  end = end ? debugStack.findIndex(end) : debugStack.length
-  const stack = debugStack.slice(start, end).reverse()
+  end = end ? debugStack.findIndex(end) + 1 : debugStack.length
+  const stack = debugStack.slice(start, end)
   if (speed !== 0) {
+    stack.reverse()
     const rec = () => {
       setTimeout(() => {
         if (stack.length) {
@@ -905,44 +912,6 @@ export const debug = (ast, checkTypes = true, userDefinedTypes) => {
   let types = new Map()
   const debugEnv = {
     ...keywords,
-    [STATIC_TYPES.ABSTRACTION]: (args, env) => {
-      const T = evaluate(args[0], env)
-      const t = typeof T
-      if (t !== 'function')
-        throw new TypeError(
-          `Argument of (${STATIC_TYPES.ABSTRACTION}) must be an (${
-            RUNTIME_TYPES.LAMBDA
-          }) but got something else (${
-            STATIC_TYPES.ABSTRACTION
-          } ${stringifyArgs(args)})`
-        )
-      return T
-    },
-    [STATIC_TYPES.ATOM]: (args, env) => {
-      const T = evaluate(args[0], env)
-      const t = typeof T
-      if (t !== 'number')
-        throw new TypeError(
-          `Argument of (${STATIC_TYPES.ATOM}) must be an (${
-            RUNTIME_TYPES.NUMBER
-          }) but got something else (${STATIC_TYPES.ATOM} ${stringifyArgs(
-            args
-          )})`
-        )
-      return T
-    },
-    [STATIC_TYPES.COLLECTION]: (args, env) => {
-      const T = evaluate(args[0], env)
-      if (!Array.isArray(T))
-        throw new TypeError(
-          `Argument of (${STATIC_TYPES.COLLECTION}) must be an (${
-            RUNTIME_TYPES.ARRAY
-          }) but got something else (${STATIC_TYPES.COLLECTION} ${stringifyArgs(
-            args
-          )})`
-        )
-      return T
-    },
     [DEBUG.TYPE_SIGNATURE]: (args, env) => {
       if (args.length !== 2)
         throw new RangeError(