fez-lisp 1.3.5 → 1.3.6

package/package.json

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

package/src/interpreter.js

@@ -147,20 +147,26 @@ export const keywords = {
     return a % b
   },
   [KEYWORDS.BITWISE_AND]: (args, env) => {
-    if (args.length < 2)
+    if (args.length !== 2)
       throw new RangeError(
         `Invalid number of arguments to (${
           KEYWORDS.BITWISE_AND
         }) (= 2 required). (${KEYWORDS.BITWISE_AND} ${stringifyArgs(args)})`
       )
-    const operands = args.map((a) => evaluate(a, env))
-    if (operands.some((x) => typeof x !== 'number'))
+    if (typeof a !== 'number')
+      throw new TypeError(
+        `First arguments of (${KEYWORDS.BITWISE_AND}) is not a (${
+          RUNTIME_TYPES.NUMBER
+        }) (${KEYWORDS.BITWISE_AND} ${stringifyArgs(args)})`
+      )
+    const b = evaluate(args[1], env)
+    if (typeof b !== 'number')
       throw new TypeError(
-        `Not all arguments of (${KEYWORDS.BITWISE_AND}) are ${
+        `Second arguments of (${KEYWORDS.BITWISE_AND}) is not a (${
           RUNTIME_TYPES.NUMBER
-        } (${KEYWORDS.BITWISE_AND} ${stringifyArgs(args)})`
+        }) (${KEYWORDS.BITWISE_AND} ${stringifyArgs(args)})`
       )
-    return operands.reduce((acc, x) => acc & x)
+    return a & b
   },
   [KEYWORDS.BITWISE_NOT]: (args, env) => {
     if (args.length !== 1)