From 858498e27c7266675e81850c8bda624f6ae89429 Mon Sep 17 00:00:00 2001
From: Gabriel Dos Reis <GabrielDosReis@users.noreply.github.com>
Date: Mon, 29 Aug 2022 23:08:19 -0700
Subject: Test assignment opcode in positive form (#21)

The Lisp backend massaging code should test the opcode in positive form, as opposed to exclusion.
---
 src/interp/lisp-backend.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot
index 63040ce4..8894db4f 100644
--- a/src/interp/lisp-backend.boot
+++ b/src/interp/lisp-backend.boot
@@ -844,7 +844,7 @@ massageBackendCode x ==
   if (u := first x) = "MAKEPROP" and $TRACELETFLAG then
     x.first := "MAKEPROP-SAY"
   u in '(DCQ SPADLET SETQ %LET) =>
-    if u isnt 'DCQ and u isnt 'SETQ then
+    if u in '(SPADLET %LET) then
       append!(x,$FUNNAME__TAIL)
       x.first := "LETT"
     massageBackendCode CDDR x
-- 
cgit v1.2.3