fez-lisp 1.5.5 → 1.5.7

package/package.json

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

package/src/compiler.js

@@ -7,6 +7,7 @@ import {
   VALUE,
   WORD
 } from './keywords.js'
+import { OPTIMIZATIONS } from './macros.js'
 import { leaf, isLeaf, AST } from './parser.js'
 const deepRename = (name, newName, tree) => {
   if (!isLeaf(tree))
@@ -241,6 +242,7 @@ const comp = (tree, Drill) => {
       case KEYWORDS.BITWISE_XOR:
       case KEYWORDS.BITWISE_LEFT_SHIFT:
       case KEYWORDS.BITWISE_RIGHT_SHIFT:
+        return `(${parseArgs(tail, Drill, token)});`
       case KEYWORDS.REMAINDER_OF_DIVISION:
         return `(${comp(tail[0], Drill)}%${comp(tail[1], Drill)});`
       case KEYWORDS.BITWISE_NOT:

package/src/keywords.js

@@ -53,9 +53,12 @@ export const RUNTIME_TYPES = {
   ARRAY: 'array'
 }
 export const DEBUG = {
+  STRING: 'string',
   LOG: 'log',
   ASSERT: 'assert',
   SIGNATURE: '?',
+  LIST_THEMES: 'theme?',
+  SET_THEME: 'theme!',
   CALLSTACK: '(CALLSTACK)' // so that you can't use it in the code
 }
 

package/src/utils.js

@@ -11,6 +11,12 @@ import {
 export const logError = (error) =>
   console.log('\x1b[31m', `\n${error}\n`, '\x1b[0m')
 export const logSuccess = (output) => console.log('\x1b[32m', output, '\x1b[0m')
+export const formatErrorWithCallstack = (error, callstack) => {
+  return `${error.message}\n${callstack
+    .reverse()
+    .map((x, i) => `${Array(i + 2).join(' ')}(${x} ...)`)
+    .join('\n')}`
+}
 export const removeNoCode = (source) =>
   source
     .replace(/;.+/g, '')
@@ -263,3 +269,15 @@ export const parse = (source) =>
       std
     )
   )
+
+export const UTILS = {
+  handleUnbalancedQuotes,
+  handleUnbalancedParens,
+  logError,
+  logSuccess,
+  formatErrorWithCallstack,
+  wrapInBlock,
+  isEqual,
+  stringifyArgs,
+  shake
+}