# HG changeset patch
# User David Kastrup <dak@gnu.org>
# Date 1034179216 0
# Node ID eeaba883e50a8963654cb304ee429d2ed065a9aa
# Parent  5558ace701bf1600a323ef7a8df1327360ca8dd9
(calcFunc-ln): In symbolic manipulations,
ln(-1) should be i*pi, not pi.

diff -r 5558ace701bf -r eeaba883e50a lisp/calc/calc-alg.el
--- a/lisp/calc/calc-alg.el	Wed Oct 09 15:59:57 2002 +0000
+++ b/lisp/calc/calc-alg.el	Wed Oct 09 16:00:16 2002 +0000
@@ -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)))