[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master ce7e78a 1/3: * lisp/calc/calc-ext.el (math-equal-int): Work for b
|
From: |
Mattias Engdegård |
|
Subject: |
master ce7e78a 1/3: * lisp/calc/calc-ext.el (math-equal-int): Work for bignums. |
|
Date: |
Mon, 1 Mar 2021 15:01:03 -0500 (EST) |
branch: master
commit ce7e78a2c09eadcbc180eb9678ed34c232a146b7
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>
* lisp/calc/calc-ext.el (math-equal-int): Work for bignums.
---
lisp/calc/calc-ext.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el
index f4ddb84..24781ed 100644
--- a/lisp/calc/calc-ext.el
+++ b/lisp/calc/calc-ext.el
@@ -2565,9 +2565,9 @@ If X is not an error form, return 1."
;;; True if A is numerically equal to the integer B. [P N S] [Public]
;;; B must not be a multiple of 10.
(defun math-equal-int (a b)
- (or (eq a b)
+ (or (eql a b)
(and (eq (car-safe a) 'float)
- (eq (nth 1 a) b)
+ (eql (nth 1 a) b)
(= (nth 2 a) 0))))