From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 18 Nov 2018 06:20:50 +0000 (+0000)
Subject: Use complex:1+ and complex:-1+.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~25
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6213517bf808bf807e561ad52f6949b82a18ffea;p=mit-scheme.git

Use complex:1+ and complex:-1+.

No functional change but this makes it less likely that someone might
tweak the argument order, which tend sto matter for preserving things
like signed zeros.
---

diff --git a/src/runtime/arith.scm b/src/runtime/arith.scm
index b0a0a690a..4c143134c 100644
--- a/src/runtime/arith.scm
+++ b/src/runtime/arith.scm
@@ -1740,14 +1740,14 @@ USA.
 
 (define (complex:expm1 z)
   (if (recnum? z)
-      (complex:- (complex:exp z) 1)	;XXX
+      (complex:-1+ (complex:exp z))	;XXX
       ((copy real:expm1) z)))
 
 (define (complex:log1p z)
   (if (or (recnum? z)
 	  (and (real:real? z)
 	       (<= z -1)))
-      (complex:log (complex:+ z 1))	;XXX
+      (complex:log (complex:1+ z))	;XXX
       ((copy real:log1p) z)))
 
 (define (complex:log1m z)