Oops, don't print field number running out error redundantly.

edd07d5a · Kenton Varda · fb31458e · edd07d5a
Commit edd07d5a authored Feb 19, 2013 by Kenton Varda
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

Parser.hs compiler/src/Parser.hs +1 -1

No files found.
--- a/compiler/src/Parser.hs
+++ b/compiler/src/Parser.hs
@@ -128,7 +128,7 @@ nameWithOrdinal maxNumber = do
    name <- located identifier
    atSign
    ordinal <- located literalInt
-    if locatedValue ordinal > maxNumber - 32
+    if locatedValue ordinal > maxNumber - 32 && locatedValue ordinal <= maxNumber
        then exclamationPoint
         <|> failNonFatal (locatedPos ordinal)
                 (printf "%d is nearing maximum of %d.  Be sure to plan for future extensibility \