diff --git a/irregex.scm b/irregex.scm
index 5d0f77e..a7e73a1 100644
a
|
b
|
|
1113 | 1113 | (list (cons '/ (reverse lo-cset))))))) |
1114 | 1114 | ((char? (car ls)) |
1115 | 1115 | (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))))) |
1118 | 1118 | (else |
1119 | 1119 | (if (or (high-char? (caar ls)) (high-char? (cdar ls))) |
1120 | 1120 | (lp (cdr ls) |