fez-lisp 1.6.21 → 1.6.24

package/package.json

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

package/src/check.js

@@ -1205,9 +1205,8 @@ export const typeCheck = (ast, ctx = SPECIAL_FORM_TYPES) => {
               )
             if (name in env) {
               Types.set(withScope(name, env), () => formatType(name, env))
-              if (env[SCOPE_NAME] === rootScopeIndex) {
-                break
-              }
+              // If current scope is root then these are user defined types
+              if (env[SCOPE_NAME] === rootScopeIndex) break
             }
             //  Predicate name consistency
             const rightHand = rest.at(-1)

package/src/macros.js

@@ -37,7 +37,9 @@ export const SUGGAR = {
   BIG_INT_DIVISION: 'Idiv',
   BIG_INT_MULTIPLICATION: 'Imul',
   NEW_BIG_INTEGER: 'new:big-integer',
-  PROMISES: '*DATA*'
+  PROMISES: '*DATA*',
+  VARIABLE: 'variable',
+  SET_VARIABLE: 'set'
 }
 export const deSuggarAst = (ast, scope) => {
   if (scope === undefined) scope = ast
@@ -98,6 +100,23 @@ export const deSuggarAst = (ast, scope) => {
               //       }
               //     }
               //       break
+              case KEYWORDS.GET_ARRAY:
+                if (rest.length === 1) {
+                  exp.push([ATOM, 0])
+                }
+                break
+              case SUGGAR.VARIABLE:
+                {
+                  exp[0][VALUE] = 'let'
+                  const temp = exp.pop()
+                  exp.push([[APPLY, 'var:def'], temp])
+                }
+                deSuggarAst(exp.at(-1))
+                break
+              case SUGGAR.SET_VARIABLE:
+                exp[0][VALUE] = 'var:set!'
+                deSuggarAst(exp.at(-1))
+                break
               case KEYWORDS.BLOCK:
                 {
                   if (rest.length === 0)