aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/interp/lisp-backend.boot2
1 files changed, 1 insertions, 1 deletions
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