(calc-word-size): Replace string-to-int by string-to-number.

diff --git a/lisp/calc/calc-bin.el b/lisp/calc/calc-bin.el
index e960220c09b2811276f82e6bf81977f9357598ec..445f9d28531adf903f8a4901673e63d0dce8bbef 100644 (file)
--- a/lisp/calc/calc-bin.el
+++ b/lisp/calc/calc-bin.el
@@ -1,6 +1,6 @@
 ;;; calc-bin.el --- binary functions for Calc
 
-;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2005 Free Software Foundation, Inc.
 
 ;; Author: David Gillespie <daveg@synaptics.com>
 ;; Maintainer: Jay Belanger <belanger@truman.edu>
@@ -135,7 +135,7 @@
               (if (equal n "")
                   calc-word-size
                 (if (string-match "\\`[-+]?[0-9]+\\'" n)
-                    (string-to-int n)
+                    (string-to-number n)
                   (error "Expected an integer")))
             (prefix-numeric-value n)))
    (or (= n calc-word-size)