Cover 8 bits instead of 7 when converting from char-sets to regexps.

This commit is contained in:
mainzelm 2006-03-23 07:59:14 +00:00
parent fbfe81aa85
commit c965536804
1 changed files with 1 additions and 1 deletions

View File

@ -709,7 +709,7 @@
. ,ranges))))
(values loose ranges)))))
(let lp ((i 127) (from #f) (to #f) (loose '()) (ranges '()))
(let lp ((i 255) (from #f) (to #f) (loose '()) (ranges '()))
(if (< i 0)
(add-range from to loose ranges)