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 b0a0a690afd07f82eaeab13bac8d4faed2a7282e..4c143134ce68a48ba52ead230b870982c2ec2db1 100644 (file)
--- 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)