# HG changeset patch
# User David Bateman <dbateman@free.fr>
# Date 1246430244 -7200
# Node ID ddcc0da700b8898d85dcbbee54b50006429e9076
# Parent  c9636d98e5cd785f3cada2c05c4ef4421e635306
Fix 'format rat' for values like '1 - eps'

diff --git a/src/ChangeLog b/src/ChangeLog
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
+2008-07-01  David Bateman  <dbateman@free.fr>
+	
+	* pr-output.cc (static inline std::string rational_approx (double, 
+	int)): Test for underflow of fractional part of rational approximation
+	earlier in the loop.
+
 2009-07-01  Joe Rothweiler <octaveuser@sensicomm.com>
 
 	* input.cc (raw_mode): Use TCSADRAIN if no wait.
diff --git a/src/pr-output.cc b/src/pr-output.cc
--- a/src/pr-output.cc
+++ b/src/pr-output.cc
@@ -271,6 +271,15 @@
 	  double step = xround (flip);
 	  double nextn = n;
 	  double nextd = d;
+
+	  // Have we converged to 1/intmax ?
+	  if (m > 100 || fabs (frac) < 1 / static_cast<double>(INT_MAX))
+	    {
+	      lastn = n;
+	      lastd = d;
+	      break;
+	    }
+
 	  frac = flip - step;
 	  n = n * step + lastn;
 	  d = d * step + lastd;
@@ -295,14 +304,6 @@
 	    break;
 
 	  s = buf.str();
-
-	  // Have we converged to 1/intmax ?
-	  if (m > 100 || fabs (frac) < 1 / static_cast<double>(INT_MAX))
-	    {
-	      lastn = n;
-	      lastd = d;
-	      break;
-	    }
 	}
 
       if (lastd < 0.)