fez-lisp 1.6.27 → 1.6.30

package/src/keywords.js

@@ -76,8 +76,6 @@ export const DEBUG = {
   LOG: 'log',
   ASSERT: 'assert',
   SIGNATURE: 'Info',
-  LIST_THEMES: 'theme?',
-  SET_THEME: 'theme!',
   TYPE_SIGNATURE: 'T'
 }
 

package/src/parser.js

@@ -42,6 +42,15 @@ export const LISP = {
           .join(' ')})`
     else return array
   },
+  serialise: (arg) => {
+    if (typeof arg === 'number' || typeof arg === 'string')
+      return arg.toString()
+    else if (Array.isArray(arg))
+      return arg.length
+        ? `[${arg.map((a) => LISP.serialise(a)).join(' ')}]`
+        : '[]'
+    else return '(lambda)'
+  },
   json: (item) => {
     if (item === null) return 0
     else if (typeof item === 'boolean') return item

package/src/types.js

@@ -464,24 +464,6 @@ export const SPECIAL_FORM_TYPES = {
       [RETURNS]: [UNKNOWN]
     }
   },
-  [DEBUG.LIST_THEMES]: {
-    [STATS]: {
-      [TYPE_PROP]: [APPLY],
-      [SIGNATURE]: DEBUG.LIST_THEMES,
-      retried: Infinity,
-      [ARG_COUNT]: VARIADIC,
-      [RETURNS]: [UNKNOWN]
-    }
-  },
-  [DEBUG.SET_THEME]: {
-    [STATS]: {
-      [TYPE_PROP]: [APPLY],
-      [SIGNATURE]: DEBUG.SET_THEME,
-      retried: Infinity,
-      [ARG_COUNT]: VARIADIC,
-      [RETURNS]: [UNKNOWN]
-    }
-  },
   [KEYWORDS.BLOCK]: {
     [STATS]: {
       [TYPE_PROP]: [APPLY],

package/src/utils.js

@@ -26,6 +26,7 @@ import {
   withCtxTypes
 } from './types.js'
 import { compile } from './compiler.js'
+import { debugStackToString, startDebug, debug } from './debugger.js'
 export const logError = (error) =>
   console.log('\x1b[31m', `\n${error}\n`, '\x1b[0m')
 export const logSuccess = (output) => console.log('\x1b[32m', output, '\x1b[0m')
@@ -365,6 +366,9 @@ export const isInputVariable = (x) =>
   x[1][VALUE] === 'INPUT'
 
 export const UTILS = {
+  debug,
+  startDebug,
+  debugStackToString,
   handleUnbalancedQuotes,
   handleUnbalancedParens,
   logError,
@@ -529,6 +533,13 @@ export const fez = (ast, c = false) => {
 
 export const toTypedAst = (ast, userDefinedTypes) => {
   try {
+    const typeSet = (Types, name, env, exp) => {
+      Types.set(withScope(name, env), () => {
+        if (exp.at(-1)[TYPE] !== FLAG) exp.push(formatAstTypes(name, env))
+        else exp[exp.length - 1] = formatAstTypes(name, env)
+        return ''
+      })
+    }
     const types = typeCheck(
       ast,
       withCtxTypes(
@@ -539,19 +550,14 @@ export const toTypedAst = (ast, userDefinedTypes) => {
             }
           : definedTypes(filteredDefinedTypes(ast, std, stdT))
       ),
-      (Types, name, env, exp) => {
-        Types.set(withScope(name, env), () => {
-          if (exp.at(-1)[TYPE] !== FLAG) exp.push(formatAstTypes(name, env))
-          else exp[exp.length - 1] = formatAstTypes(name, env)
-          return ''
-        })
-      }
+      typeSet
     )
     for (const v of types[1].values()) v()
     //  types[0][1][1].slice(1)
     return types
   } catch (error) {
     logError(error.message)
+    return []
   }
 }
 export const atst = (ast, ctx) => toTypedAst(ast, ctx)[0]