From: plugd <plugd@thelambdalab.xyz>
Date: Fri, 19 Nov 2021 14:38:42 +0000 (+0100)
Subject: Fixed bug which only allowed <=3 operands.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=a437668aefaafa527eb913ae3f990381436347ab;p=ez.git

Fixed bug which only allowed <=3 operands.
---

diff --git a/ez.el b/ez.el
index 9dcfdee..95547d1 100644
--- a/ez.el
+++ b/ez.el
@@ -474,15 +474,15 @@
                   (if (= type1 #b11)
                       nil
                     (cons type1
-                          (let ((type2 (lsh (logand #b110000 type-byte) -4)))
+                          (let ((type2 (mod (lsh type-byte -4) 4)))
                             (if (= type2 #b11)
                                 nil
                               (cons type2
-                                    (let ((type3 (lsh (logand #b1100 type-byte) -2)))
+                                    (let ((type3 (mod (lsh type-byte -2) 4)))
                                       (if (= type3 #b11)
                                           nil
                                         (cons type3
-                                              (let ((type4 (logand #b11)))
+                                              (let ((type4 (mod type-byte 4)))
                                                 (if (= type4 #b11)
                                                     nil
                                                   (list type4))))))))))))))