From ff9c0da7839543478d62306dd208f11caab130c1 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Mon, 6 Sep 1999 17:19:22 -0300
Subject: test first the most common case.

---
 lobject.c | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lobject.c b/lobject.c
index 0ce37380..2eaeb91d 100644
--- a/lobject.c
+++ b/lobject.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lobject.c,v 1.20 1999/08/16 20:52:00 roberto Exp roberto $
+** $Id: lobject.c,v 1.21 1999/09/06 13:55:09 roberto Exp roberto $
 ** Some generic functions over Lua objects
 ** See Copyright Notice in lua.h
 */
@@ -130,10 +130,10 @@ int luaO_str2d (const char *s, real *result) {  /* LUA_NUMBER */
   }
   while (isspace((unsigned char)*s)) s++;
   if (*s != '\0') return 0;  /* invalid trailing characters? */
-  if (point > 0)
-    a /= expten(point);
-  else if (point < 0)
-    a *= expten(-point);
+  if (point != 0) {
+    if (point > 0) a /= expten(point);
+    else           a *= expten(-point);
+  }
   *result = a;
   return 1;
 }
-- 
cgit v1.2.3-55-g6feb