diff options
| -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. |