diff options
Diffstat (limited to 'lisp/calc/calc-macs.el')
| -rw-r--r-- | lisp/calc/calc-macs.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/calc/calc-macs.el b/lisp/calc/calc-macs.el index e73d108e6d9..257d369b87a 100644 --- a/lisp/calc/calc-macs.el +++ b/lisp/calc/calc-macs.el @@ -161,8 +161,9 @@ hms date mod var)))) (defsubst Math-num-integerp (a) - (or (not (consp a)) - (and (eq (car a) 'float) + (or (integerp a) + (and (consp a) + (eq (car a) 'float) (>= (nth 2 a) 0)))) (defsubst Math-equal-int (a b) |