fez-lisp 1.5.27 → 1.5.29

package/package.json

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

package/src/check.js

@@ -502,7 +502,14 @@ export const typeCheck = (ast) => {
                   const isSpecial = SPECIAL_FORMS_SET.has(first[VALUE])
 
                   if (first[TYPE] === APPLY && !isSpecial) {
-                    if (!env[first[VALUE]][STATS][ARGS_COUNT]) {
+                    if (env[first[VALUE]][STATS].type === ATOM) {
+                      errorStack.set(
+                        key,
+                        `(${first[VALUE]}) is not a (lambda) (${stringifyArgs(
+                          exp
+                        )})`
+                      )
+                    } else if (!env[first[VALUE]][STATS][ARGS_COUNT]) {
                       env[first[VALUE]][STATS][RETURNS] = UNKNOWN
                       env[first[VALUE]][STATS].type = APPLY
                       env[first[VALUE]][STATS][ARGS_COUNT] = rest.length

package/src/macros.js

@@ -851,12 +851,6 @@ export const replaceQuotes = (source) =>
     .replaceAll(/\{/g, `(${SUGGAR.CREATE_LIST} `)
     .replaceAll(/\}/g, ')')
 
-export const replaceParens = (source) =>
-  source
-    .replaceAll(/\[/g, '(')
-    .replaceAll(/\]/g, ')')
-    .replaceAll(/\{/g, '(')
-    .replaceAll(/\}/g, ')')
 export const deSuggarSource = (source) => replaceQuotes(replaceStrings(source))
 export const handleUnbalancedQuotes = (source) => {
   const diff = (source.match(/\"/g) ?? []).length % 2

package/src/parser.js

@@ -48,7 +48,7 @@ export const LISP = {
     const dfs = (exp) => {
       let out = ''
       const [head, ...tail] = isLeaf(exp) ? [exp] : exp
-      if (head == undefined) return (out += '()')
+      if (head == undefined) return (out += '(array)')
       switch (head[TYPE]) {
         case WORD:
           out += head[VALUE]