fez-lisp 1.5.159 → 1.5.160

package/package.json

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

package/src/check.js

@@ -1132,6 +1132,7 @@ export const typeCheck = (ast, ctx = SPECIAL_FORM_TYPES) => {
                   exp
                 )})`
               )
+
             if (name in env) {
               Types.set(withScope(name, env), () => formatType(name, env))
               break
@@ -1175,6 +1176,7 @@ export const typeCheck = (ast, ctx = SPECIAL_FORM_TYPES) => {
                     name,
                     check
                   })
+                  // TODO: remove this as maybe it is not needed
                   check(rightHand, env, exp)
                 })
                 check(rightHand, env, exp)
@@ -1312,9 +1314,9 @@ export const typeCheck = (ast, ctx = SPECIAL_FORM_TYPES) => {
                       })
                       break
                     default:
-                      if (copy[ret[VALUE]])
+                      if (copy[ret[VALUE]]) {
                         setReturnRef(ref[STATS], copy[ret[VALUE]][STATS])
-                      else
+                      } else
                         stagger(stack, 'append', [ret, copy], () => {
                           if (copy[ret[VALUE]])
                             setReturnRef(ref[STATS], copy[ret[VALUE]][STATS])

package/src/utils.js

@@ -175,10 +175,13 @@ const isDefinition = (x) =>
   x[TYPE] === APPLY && x[VALUE] === KEYWORDS.DEFINE_VARIABLE
 // [[, [, libs]]] is because std is wrapped in (apply (lambda (do ...)))
 const toDeps = ([[, [, libs]]]) =>
-  libs.reduce(
-    (a, x, i) => a.set(x.at(1)[VALUE], { value: x, index: i }),
-    new Map()
-  )
+  // slice 1 so we get rid of do
+  libs
+    .slice(1)
+    .reduce(
+      (a, x, i) => a.set(x.at(1)[VALUE], { value: x, index: i }),
+      new Map()
+    )
 const deepShake = (tree, deps, visited = new Set(), ignored = new Set()) => {
   const type = tree[TYPE]
   const value = tree[VALUE]