# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1115063083 0
# Node ID a5b38402e3e17577dfd4ed3450088451b2e3a230
# Parent  3947739eeeb9124628b6c8fe3a8fc2972c5953c7
(calc-read-parse-table-part, calc-edit-macro-repeats): Replace
string-to-int by string-to-number.

diff -r 3947739eeeb9 -r a5b38402e3e1 lisp/calc/calc-prog.el
--- a/lisp/calc/calc-prog.el	Mon May 02 19:44:07 2005 +0000
+++ b/lisp/calc/calc-prog.el	Mon May 02 19:44:43 2005 +0000
@@ -1,6 +1,6 @@
 ;;; calc-prog.el --- user programmability 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>
@@ -637,7 +637,7 @@
 	     (setq part (nconc part (list (if (= (match-beginning 1)
 						 (match-end 1))
 					      0
-					    (string-to-int
+					    (string-to-number
 					     (buffer-substring
 					      (1+ (match-beginning 1))
 					      (match-end 1)))))))
@@ -727,7 +727,7 @@
   (goto-char calc-edit-top)
   (while
       (re-search-forward "^\\([0-9]+\\)\\*" nil t)
-    (let ((num (string-to-int (match-string 1)))
+    (let ((num (string-to-number (match-string 1)))
           (line (buffer-substring (point) (line-end-position))))
       (goto-char (line-beginning-position))
       (kill-line 1)