From 069c7d86ef4c4047bcd5d20cda1045c9ce35457d Mon Sep 17 00:00:00 2001
From: Gabriel Dos Reis <GabrielDosReis@users.noreply.github.com>
Date: Sat, 27 Aug 2022 19:36:39 -0700
Subject: Remove reference to PRELET and RELET (#20)

---
 src/interp/lisp-backend.boot | 4 ++--
 1 file 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)
-- 
cgit v1.2.3