fez-lisp 1.5.123 → 1.5.125

package/package.json

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

package/src/compiler.js

@@ -6,7 +6,8 @@ import {
   TYPE,
   VALUE,
   WORD,
-  STATIC_TYPES
+  STATIC_TYPES,
+  DEBUG
 } from './keywords.js'
 import { leaf, isLeaf, AST } from './parser.js'
 import { FALSE_WORD, TRUE_WORD } from './types.js'
@@ -274,6 +275,9 @@ const comp = (tree, Drill) => {
       case STATIC_TYPES.ATOM:
       case STATIC_TYPES.PREDICATE:
       case STATIC_TYPES.ANY:
+      case DEBUG.ASSERT:
+      case DEBUG.LOG:
+      case DEBUG.STRING:
         return compile(tail[0], Drill)
 
       default: {

package/src/{enchance.js → enhance.js}

@@ -1,14 +1,6 @@
 import { AST, isLeaf } from './parser.js'
-import {
-  APPLY,
-  ATOM,
-  KEYWORDS,
-  PREDICATE_SUFFIX,
-  TYPE,
-  VALUE,
-  WORD
-} from './keywords.js'
-import { getPrefix, getSuffix, shake, wrapInBlock } from './utils.js'
+import { APPLY, ATOM, KEYWORDS, TYPE, VALUE, WORD } from './keywords.js'
+import { getPrefix, shake, wrapInBlock } from './utils.js'
 import std from '../lib/baked/std.js'
 export const OPTIMIZATIONS = {
   RECURSION: 'recursive',
@@ -24,7 +16,7 @@ const deepTransform = (predicate, transform, tree) => {
       else deepTransform(predicate, transform, leaf)
     }
 }
-export const enhance = (ast) => {
+const opt = (ast) => {
   const evaluate = (exp) => {
     const [first, ...rest] = isLeaf(exp) ? [exp] : exp
     if (first != undefined) {
@@ -221,11 +213,12 @@ export const enhance = (ast) => {
         default:
           break
       }
-
       for (const r of rest) evaluate(r)
     }
   }
-  evaluate(AST.parse(AST.stringify(ast)))
+  evaluate(ast)
   const shaked = shake(ast[1][1].slice(1), std)
   return wrapInBlock(shaked)
 }
+
+export const enhance = (ast) => opt(AST.parse(AST.stringify(ast))[0])

package/src/utils.js

@@ -15,7 +15,7 @@ import {
   deSuggarSource,
   handleUnbalancedQuotes
 } from './macros.js'
-import { OPTIMIZATIONS } from './enchance.js'
+import { OPTIMIZATIONS } from './enhance.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')