mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

Unicode data parsing script incorrect for char-set:ascii

Browse source 
char-set:ascii is the only char-set consisting of a single contiguous
range, and there was an off-by-one error for that case.

* libguile/unidata_to_charset.pl (compute): fix off-by-one
This commit is contained in:
Michael Gran 2010-04-02 21:08:42 -07:00
parent 43cd9cec23
commit 6d30df5dbd
2 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/unidata_to_charset.pl
View file

@ -340,8 +340,9 @@ sub compute {
$rend[$len] = $end;
$len++;
} elsif ($len == 0) {
$rstart[0] = $start;
$rend[0] = $end;
$rstart[0] = $start;
$rend[0] = $end;
$len++;
}
}

10
test-suite/tests/srfi-14.test
View file

@ -721,10 +721,14 @@
(integer->char #x20))))
char-set:printing))
(pass-if "char-set:ASCII"
(char-set= (ucs-range->char-set 0 128)
char-set:ascii))
(pass-if "char-set:iso-control"
(char-set<= (string->char-set
(apply string
(map integer->char (append
(char-set<= (string->char-set
(apply string
(map integer->char (append
;; U+0000 to U+001F
(iota #x20)
(list #x7f)))))