diff options
author | dos-reis <gdr@axiomatics.org> | 2009-07-04 19:00:59 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-07-04 19:00:59 +0000 |
commit | e2587f659cb1f58cb198ce0c841f43015378457f (patch) | |
tree | 54add7b4e7b7272d0569e9a9e1f34288aeed10fb /src/algebra/strap/LNAGG-.lsp | |
parent | 44a49cb801191cd6e803204aaffe04ab7a65a345 (diff) | |
download | open-axiom-e2587f659cb1f58cb198ce0c841f43015378457f.tar.gz |
* interp/c-util.boot (simplifySEQ): New.
(transformToBackendCode): Use it.
Diffstat (limited to 'src/algebra/strap/LNAGG-.lsp')
-rw-r--r-- | src/algebra/strap/LNAGG-.lsp | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/algebra/strap/LNAGG-.lsp b/src/algebra/strap/LNAGG-.lsp index 7182758d..2d48d5c5 100644 --- a/src/algebra/strap/LNAGG-.lsp +++ b/src/algebra/strap/LNAGG-.lsp @@ -30,8 +30,7 @@ (LETT #1# (SPADCALL |a| (|getShellEntry| $ 10)) |LNAGG-;indices;AL;1|) G190 (COND ((> |i| #1#) (GO G191))) - (SEQ (EXIT (LETT #0# (CONS |i| #0#) - |LNAGG-;indices;AL;1|))) + (LETT #0# (CONS |i| #0#) |LNAGG-;indices;AL;1|) (LETT |i| (+ |i| 1) |LNAGG-;indices;AL;1|) (GO G190) G191 (EXIT (NREVERSE0 #0#)))))))) |