From: David Kastrup <dak@gnu.org>
Date: Wed, 9 Oct 2002 16:00:16 +0000 (+0000)
Subject: (calcFunc-ln): In symbolic manipulations,
X-Git-Tag: ttn-vms-21-2-B4~12889
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2c6dfebbbb7c32458e1a8901d0a9b54f4c4aeaaa;p=emacs.git

(calcFunc-ln): In symbolic manipulations,
ln(-1) should be i*pi, not pi.
---

diff --git a/lisp/calc/calc-alg.el b/lisp/calc/calc-alg.el
index f1a08c7e235..0a3634b1db5 100644
--- a/lisp/calc/calc-alg.el
+++ b/lisp/calc/calc-alg.el
@@ -1085,7 +1085,7 @@
       (and calc-symbolic-mode
 	   (math-known-negp (nth 1 expr))
 	   (math-add (list 'calcFunc-ln (math-neg (nth 1 expr)))
-		     '(var pi var-pi)))
+		     '(* (var pi var-pi) (var i var-i))))
       (and calc-symbolic-mode
 	   (math-known-imagp (nth 1 expr))
 	   (let* ((ip (calcFunc-im (nth 1 expr)))