From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 20 Jul 1997 06:38:55 +0000 (+0000)
Subject: Fix bug: end index in substring is exclusive, not inclusive.
X-Git-Tag: 20090517-FFI~5041
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cd6cbe7d8d6cc400a08ed2954c6a88e16b927fc2;p=mit-scheme.git

Fix bug: end index in substring is exclusive, not inclusive.
Repaginate.
---

diff --git a/v7/src/runtime/numpar.scm b/v7/src/runtime/numpar.scm
index 9de3dad06..f2f7d5d85 100644
--- a/v7/src/runtime/numpar.scm
+++ b/v7/src/runtime/numpar.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: numpar.scm,v 14.13 1997/07/10 09:16:23 adams Exp $
+$Id: numpar.scm,v 14.14 1997/07/20 06:38:55 cph Exp $
 
 Copyright (c) 1989-97 Massachusetts Institute of Technology
 
@@ -51,9 +51,9 @@ MIT in each case. |#
       (error:wrong-type-argument start "string index" 'SUBSTRING->NUMBER))
   (if (not (index-fixnum? end))
       (error:wrong-type-argument end "string index" 'SUBSTRING->NUMBER))
-  (if (not (< end (string-length string)))
+  (if (not (fix:<= end (string-length string)))
       (error:bad-range-argument end 'SUBSTRING->NUMBER))
-  (if (not (<= start end))
+  (if (not (fix:<= start end))
       (error:bad-range-argument start 'SUBSTRING->NUMBER))
   (parse-number string start end
 		(if (default-object? radix) #f radix)
@@ -110,7 +110,7 @@ MIT in each case. |#
 		     (parse-integer string start end digit
 				    exactness (or radix 10) #f)))
 	       (else #f)))))
-
+
 (define (find-leader string start end exactness radix sign)
   ;; State: leading sign has been seen.
   (and (fix:< start end)
@@ -128,7 +128,7 @@ MIT in each case. |#
 		(and (fix:= start end)
 		     (if (eq? #\- sign) -i +i)))
 	       (else #f)))))
-
+
 (define (parse-integer string start end integer exactness radix sign)
   ;; State: at least one digit has been seen.
   (parse-digits string start end integer exactness radix
@@ -378,7 +378,7 @@ MIT in each case. |#
 
 (define flonum-parser-fast?
   #f)
-
+
 (define (finish number exactness sign)
   (apply-sign sign (apply-exactness exactness number)))