From e2587f659cb1f58cb198ce0c841f43015378457f Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 4 Jul 2009 19:00:59 +0000 Subject: * interp/c-util.boot (simplifySEQ): New. (transformToBackendCode): Use it. --- src/algebra/strap/LNAGG-.lsp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/algebra/strap/LNAGG-.lsp') 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#)))))))) -- cgit v1.2.3