From 351022a3ec02f6e131d54f3a5bcb27a8dfffbcb0 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 7 Feb 2011 00:39:58 +0000
Subject: 	* interp/c-util.boot (matchingEXIT): New. 	(simplifySEQ):
 Use it.

---
 src/algebra/strap/STAGG-.lsp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/algebra/strap/STAGG-.lsp')

diff --git a/src/algebra/strap/STAGG-.lsp b/src/algebra/strap/STAGG-.lsp
index 60c28e58..b6b60077 100644
--- a/src/algebra/strap/STAGG-.lsp
+++ b/src/algebra/strap/STAGG-.lsp
@@ -219,11 +219,11 @@
                                   (EXIT |s|)))))))))))) 
 
 (DEFUN |STAGG-;concat!;3A;13| (|x| |y| $)
-  (SEQ (COND
-         ((SPADCALL |x| (|getShellEntry| $ 18)) |y|)
-         (T (SEQ (SPADCALL (SPADCALL |x| (|getShellEntry| $ 54)) |y|
-                     (|getShellEntry| $ 55))
-                 (EXIT |x|)))))) 
+  (COND
+    ((SPADCALL |x| (|getShellEntry| $ 18)) |y|)
+    (T (SEQ (SPADCALL (SPADCALL |x| (|getShellEntry| $ 54)) |y|
+                (|getShellEntry| $ 55))
+            (EXIT |x|))))) 
 
 (DEFUN |StreamAggregate&| (|#1| |#2|)
   (LET* ((|dv$1| (|devaluate| |#1|)) (|dv$2| (|devaluate| |#2|))
-- 
cgit v1.2.3