From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 6 Jun 2010 15:04:38 +0000 (+0000)
Subject: Fix fencepost in ASCII-RANGE->CHAR-SET.
X-Git-Tag: 20100708-Gtk~18^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=859774d13e6ffe79cfe4ba2cf75674a891c43493;p=mit-scheme.git

Fix fencepost in ASCII-RANGE->CHAR-SET.
---

diff --git a/src/runtime/chrset.scm b/src/runtime/chrset.scm
index e8f0645ed..4c6b34bcd 100644
--- a/src/runtime/chrset.scm
+++ b/src/runtime/chrset.scm
@@ -581,7 +581,7 @@ USA.
       (error:bad-range-argument start 'ASCII-RANGE->CHAR-SET))
   (if (not (fix:<= end #x100))
       (error:bad-range-argument end 'ASCII-RANGE->CHAR-SET))
-  (%scalar-values->char-set (list (cons start (fix:- end 1)))))
+  (%scalar-values->char-set (list (cons start end))))
 
 (define (alphabet->char-set char-set)
   char-set)