aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authorGabriel Dos Reis <GabrielDosReis@users.noreply.github.com>2022-08-29 23:08:19 -0700
committerGitHub <noreply@github.com>2022-08-29 23:08:19 -0700
commit858498e27c7266675e81850c8bda624f6ae89429 (patch)
tree856ff36c2ac8b310b0fb93f8da545af8d90cb2ff /src/interp
parent069c7d86ef4c4047bcd5d20cda1045c9ce35457d (diff)
downloadopen-axiom-858498e27c7266675e81850c8bda624f6ae89429.tar.gz
Test assignment opcode in positive form (#21)
The Lisp backend massaging code should test the opcode in positive form, as opposed to exclusion.
Diffstat (limited to 'src/interp')
-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