summaryrefslogtreecommitdiff
path: root/lisp/calc/calc-alg.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/calc/calc-alg.el')
-rw-r--r--lisp/calc/calc-alg.el2
1 files changed, 1 insertions, 1 deletions
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)))