mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-21 03:00:19 +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

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)))))