From a437668aefaafa527eb913ae3f990381436347ab Mon Sep 17 00:00:00 2001 From: plugd Date: Fri, 19 Nov 2021 15:38:42 +0100 Subject: [PATCH] Fixed bug which only allowed <=3 operands. --- ez.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)))))))))))))) -- 2.20.1