fez-lisp 1.1.53 → 1.1.55

package/README.md

@@ -244,7 +244,8 @@ console.log(fez(tree(`(+ (|> 1 (+ 2) (* 3) (- 1)) (- (* (+ 1 2) 3) 1))`)))
 ```lisp
 ; all keywords
 (/) (+) (*) (-) (=) (<) (>) (>=) (<=) (&) (~) (|) (^) (<<) (>>) (>>>)
-(|>) (mod) (let) (if) (unless) (not) (and) (or) (cond) (atom?) (lambda)
+(mod) (let) (if) (not) (and) (or) (cond) (atom?) (lambda)
 (length) (do) (array) (set!) (get) (apply) (void)
 (log!) (log-string!) (log-char!) (clear!)
+(|>) (list) (unless)
 ```

package/package.json

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

package/src/interpreter.js

@@ -859,6 +859,19 @@ export const deSuggar = (ast) => {
                     inp = [rest[i].shift(), inp, ...rest[i]]
                   }
                   for (let i = 0; i < inp.length; ++i) exp[i] = inp[i]
+                  deSuggar(exp)
+                }
+                break
+              case KEYWORDS.LIST_TYPE:
+                {
+                  exp.length = 0
+                  let temp = exp
+                  for (const item of rest) {
+                    temp.push([0, KEYWORDS.ARRAY_TYPE], item, [])
+                    temp = temp.at(-1)
+                  }
+                  temp.push([0, 'array'])
+                  deSuggar(exp)
                 }
                 break
               case KEYWORDS.UNLESS:

package/src/keywords.js

@@ -9,6 +9,7 @@ export const PLACEHOLDER = '.'
 export const KEYWORDS = {
   RECURSION: 'rec',
   NUMBER_TYPE: 'number',
+  LIST_TYPE: 'list',
   ARRAY_TYPE: 'array',
   IDENTITY: 'identity',
   ARRAY_LENGTH: 'length',