From 859774d13e6ffe79cfe4ba2cf75674a891c43493 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 6 Jun 2010 15:04:38 +0000 Subject: [PATCH] Fix fencepost in ASCII-RANGE->CHAR-SET. --- src/runtime/chrset.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.25.1