# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1115063005 0
# Node ID e0224a91347dc6483dcfb856afbd95e17cafca84
# Parent  0e0c15279b4e3dc8c2141e2bd05a1b202aec0892
(calc-over-notation): Replace string-to-int by string-to-number.

diff -r 0e0c15279b4e -r e0224a91347d lisp/calc/calc-frac.el
--- a/lisp/calc/calc-frac.el	Mon May 02 19:42:52 2005 +0000
+++ b/lisp/calc/calc-frac.el	Mon May 02 19:43:25 2005 +0000
@@ -1,6 +1,6 @@
 ;;; calc-frac.el --- fraction 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>
@@ -56,7 +56,7 @@
    (if (string-match "\\`\\([^ 0-9][^ 0-9]?\\)[0-9]*\\'" fmt)
        (let ((n nil))
 	 (if (/= (match-end 0) (match-end 1))
-	     (setq n (string-to-int (substring fmt (match-end 1)))
+	     (setq n (string-to-number (substring fmt (match-end 1)))
 		   fmt (math-match-substring fmt 1)))
 	 (if (eq n 0) (error "Bad denominator"))
 	 (calc-change-mode 'calc-frac-format (list fmt n) t))