scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/rx/parse.scm
View File

@ -709,7 +709,7 @@
. ,ranges)))) . ,ranges))))
(values loose 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) (if (< i 0)
(add-range from to loose ranges) (add-range from to loose ranges)