1 |
;;; calc-bin.el --- binary functions for Calc |
;;; calc-bin.el --- binary functions for Calc |
2 |
|
|
3 |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2005 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: David Gillespie <daveg@synaptics.com> |
;; Author: David Gillespie <daveg@synaptics.com> |
6 |
;; Maintainer: Jay Belanger <belanger@truman.edu> |
;; Maintainer: Jay Belanger <belanger@truman.edu> |
135 |
(if (equal n "") |
(if (equal n "") |
136 |
calc-word-size |
calc-word-size |
137 |
(if (string-match "\\`[-+]?[0-9]+\\'" n) |
(if (string-match "\\`[-+]?[0-9]+\\'" n) |
138 |
(string-to-int n) |
(string-to-number n) |
139 |
(error "Expected an integer"))) |
(error "Expected an integer"))) |
140 |
(prefix-numeric-value n))) |
(prefix-numeric-value n))) |
141 |
(or (= n calc-word-size) |
(or (= n calc-word-size) |