aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/interp/lisp-backend.boot4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot
index 120c030d..63040ce4 100644
--- a/src/interp/lisp-backend.boot
+++ b/src/interp/lisp-backend.boot
@@ -843,12 +843,12 @@ massageBackendCode x ==
-- temporarily have TRACELET report MAKEPROPs.
if (u := first x) = "MAKEPROP" and $TRACELETFLAG then
x.first := "MAKEPROP-SAY"
- u in '(DCQ RELET PRELET SPADLET SETQ %LET) =>
+ u in '(DCQ SPADLET SETQ %LET) =>
if u isnt 'DCQ and u isnt 'SETQ then
append!(x,$FUNNAME__TAIL)
x.first := "LETT"
massageBackendCode CDDR x
- if not (u in '(SETQ RELET)) then
+ if u ~= "SETQ" then
ident? second x => pushLocalVariable second x
second x is ["FLUID",:.] =>
PUSH(CADADR x, $FluidVars)