aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/interp/lisp-backend.boot9
1 files changed, 6 insertions, 3 deletions
diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot
index 8894db4f..722fa9b0 100644
--- a/src/interp/lisp-backend.boot
+++ b/src/interp/lisp-backend.boot
@@ -842,11 +842,14 @@ massageBackendCode x ==
atomic? x => nil
-- temporarily have TRACELET report MAKEPROPs.
if (u := first x) = "MAKEPROP" and $TRACELETFLAG then
- x.first := "MAKEPROP-SAY"
+ x.op := "MAKEPROP-SAY"
u in '(DCQ SPADLET SETQ %LET) =>
if u in '(SPADLET %LET) then
- append!(x,$FUNNAME__TAIL)
- x.first := "LETT"
+ if x.args is [y,.] and ident? y then
+ x.op := "SETQ"
+ else
+ x.op := "LETT"
+ append!(x,$FUNNAME__TAIL)
massageBackendCode CDDR x
if u ~= "SETQ" then
ident? second x => pushLocalVariable second x