From e2587f659cb1f58cb198ce0c841f43015378457f Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 4 Jul 2009 19:00:59 +0000
Subject: 	* interp/c-util.boot (simplifySEQ): New. 
 (transformToBackendCode): Use it.

---
 src/algebra/strap/LIST.lsp | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'src/algebra/strap/LIST.lsp')

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)))))) 
-- 
cgit v1.2.3