From 6213517bf808bf807e561ad52f6949b82a18ffea Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 18 Nov 2018 06:20:50 +0000 Subject: [PATCH] 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. --- src/runtime/arith.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.25.1