From 351022a3ec02f6e131d54f3a5bcb27a8dfffbcb0 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 7 Feb 2011 00:39:58 +0000 Subject: * interp/c-util.boot (matchingEXIT): New. (simplifySEQ): Use it. --- src/algebra/strap/SINT.lsp | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) (limited to 'src/algebra/strap/SINT.lsp') diff --git a/src/algebra/strap/SINT.lsp b/src/algebra/strap/SINT.lsp index 18b88fc4..5dd91da0 100644 --- a/src/algebra/strap/SINT.lsp +++ b/src/algebra/strap/SINT.lsp @@ -291,14 +291,13 @@ '(XLAM (|x|) (|%iadd| (|%isub| |x| |$ShortMinimum|) 1))) (DEFUN |SINT;writeOMSingleInt| (|dev| |x| $) - (SEQ (COND - ((MINUSP |x|) - (SEQ (SPADCALL |dev| (|getShellEntry| $ 11)) - (SPADCALL |dev| "arith1" "unaryminus" - (|getShellEntry| $ 13)) - (SPADCALL |dev| (- |x|) (|getShellEntry| $ 16)) - (EXIT (SPADCALL |dev| (|getShellEntry| $ 17))))) - (T (SPADCALL |dev| |x| (|getShellEntry| $ 16)))))) + (COND + ((MINUSP |x|) + (SEQ (SPADCALL |dev| (|getShellEntry| $ 11)) + (SPADCALL |dev| "arith1" "unaryminus" (|getShellEntry| $ 13)) + (SPADCALL |dev| (- |x|) (|getShellEntry| $ 16)) + (EXIT (SPADCALL |dev| (|getShellEntry| $ 17))))) + (T (SPADCALL |dev| |x| (|getShellEntry| $ 16))))) (DEFUN |SINT;OMwrite;$S;2| (|x| $) (LET* ((|s| "") (|sp| (OM-STRINGTOSTRINGPTR |s|)) -- cgit v1.2.3