[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-26 f088817 2/3: Fix math-imaginary-i check
From: |
Noam Postavsky |
Subject: |
[Emacs-diffs] emacs-26 f088817 2/3: Fix math-imaginary-i check |
Date: |
Tue, 28 Aug 2018 08:14:47 -0400 (EDT) |
branch: emacs-26
commit f0888179237b25e32b46a8a855acb3d3453e4c69
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>
Fix math-imaginary-i check
Reported by Bastian Erdnüß at
<https://lists.gnu.org/archive/html/emacs-devel/2018-08/msg00300.html>.
* lisp/calc/calc-cplx.el (math-imaginary-i): Check for a value
of (polar 1 <quarter-circle>).
---
lisp/calc/calc-cplx.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/calc/calc-cplx.el b/lisp/calc/calc-cplx.el
index 4a453a7..35cd31d 100644
--- a/lisp/calc/calc-cplx.el
+++ b/lisp/calc/calc-cplx.el
@@ -273,8 +273,8 @@
(or (eq (car-safe val) 'special-const)
(equal val '(cplx 0 1))
(and (eq (car-safe val) 'polar)
- (eq (nth 1 val) 0)
- (Math-equal (nth 1 val) (math-quarter-circle nil))))))
+ (eq (nth 1 val) 1)
+ (Math-equal (nth 2 val) (math-quarter-circle nil))))))
;;; Extract the real or complex part of a complex number. [R N] [Public]
;;; Also extracts the real part of a modulo form.