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/LIST.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/LIST.lsp')
-rw-r--r-- | src/algebra/strap/LIST.lsp | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/src/algebra/strap/LIST.lsp b/src/algebra/strap/LIST.lsp index 26eaf30c..4e255fbb 100644 --- a/src/algebra/strap/LIST.lsp +++ b/src/algebra/strap/LIST.lsp @@ -170,12 +170,11 @@ |LIST;convert;$If;13|) NIL)) (GO G191))) - (SEQ (EXIT (LETT #0# - (CONS - (SPADCALL |a| - (|getShellEntry| $ 48)) - #0#) - |LIST;convert;$If;13|))) + (LETT #0# + (CONS (SPADCALL |a| + (|getShellEntry| $ 48)) + #0#) + |LIST;convert;$If;13|) (LETT #1# (CDR #1#) |LIST;convert;$If;13|) (GO G190) G191 (EXIT (NREVERSE0 #0#))))) (|getShellEntry| $ 52)))))) |