Ticket #345: irregex-utf8-nonranges.patch

File irregex-utf8-nonranges.patch, 608 bytes (added by sjamaan, 15 years ago)

  • irregex.scm 

    diff --git a/irregex.scm b/irregex.scm
index 5d0f77e..a7e73a1 100644
    a b  
    11131113                                 (list (cons '/ (reverse lo-cset)))))))
    11141114     ((char? (car ls))
    11151115      (if (high-char? (car ls))
    1116           (lp (cdr ls) (cons (car ls) alts) lo-cset)
    1117           (lp (cdr ls) alts (cons (car ls) lo-cset))))
     1116          (lp (cdr ls) (cons (car ls) (cons (car ls) alts)) lo-cset)
     1117          (lp (cdr ls) alts (cons (car ls) (cons (car ls) lo-cset)))))
    11181118     (else
    11191119      (if (or (high-char? (caar ls))  (high-char? (cdar ls)))
    11201120          (lp (cdr ls)