diff options
author | dos-reis <gdr@axiomatics.org> | 2011-02-07 00:39:58 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-02-07 00:39:58 +0000 |
commit | 351022a3ec02f6e131d54f3a5bcb27a8dfffbcb0 (patch) | |
tree | 0b137b74a6663d6875e7f6d8862833f782032bd4 /src/algebra/strap/STAGG-.lsp | |
parent | 2eef476c721ed93b1acaaf1a77e20b5b7c73ed4f (diff) | |
download | open-axiom-351022a3ec02f6e131d54f3a5bcb27a8dfffbcb0.tar.gz |
* interp/c-util.boot (matchingEXIT): New.
(simplifySEQ): Use it.
Diffstat (limited to 'src/algebra/strap/STAGG-.lsp')
-rw-r--r-- | src/algebra/strap/STAGG-.lsp | 10 |
1 files changed, 5 insertions, 5 deletions
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|)) |