diff options
| author | Noam Postavsky | 2018-08-14 23:26:50 -0400 |
|---|---|---|
| committer | Noam Postavsky | 2018-08-28 08:04:17 -0400 |
| commit | f0888179237b25e32b46a8a855acb3d3453e4c69 (patch) | |
| tree | 5276a9de9ed0c8dd231cc6d9c76fa6fd3157909e | |
| parent | fca935e4abe817130abb2676ec2f37b73e4f45f4 (diff) | |
| download | emacs-f0888179237b25e32b46a8a855acb3d3453e4c69.tar.gz emacs-f0888179237b25e32b46a8a855acb3d3453e4c69.zip | |
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>).
| -rw-r--r-- | lisp/calc/calc-cplx.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calc/calc-cplx.el b/lisp/calc/calc-cplx.el index 4a453a73d72..35cd31dfb4f 100644 --- a/lisp/calc/calc-cplx.el +++ b/lisp/calc/calc-cplx.el | |||
| @@ -273,8 +273,8 @@ | |||
| 273 | (or (eq (car-safe val) 'special-const) | 273 | (or (eq (car-safe val) 'special-const) |
| 274 | (equal val '(cplx 0 1)) | 274 | (equal val '(cplx 0 1)) |
| 275 | (and (eq (car-safe val) 'polar) | 275 | (and (eq (car-safe val) 'polar) |
| 276 | (eq (nth 1 val) 0) | 276 | (eq (nth 1 val) 1) |
| 277 | (Math-equal (nth 1 val) (math-quarter-circle nil)))))) | 277 | (Math-equal (nth 2 val) (math-quarter-circle nil)))))) |
| 278 | 278 | ||
| 279 | ;;; Extract the real or complex part of a complex number. [R N] [Public] | 279 | ;;; Extract the real or complex part of a complex number. [R N] [Public] |
| 280 | ;;; Also extracts the real part of a modulo form. | 280 | ;;; Also extracts the real part of a modulo form. |