Fixed bug in the definition of re-nonl. Olin
This commit is contained in:
parent
18d41a4a16
commit
dbf3e322eb
|
@ -392,7 +392,10 @@
|
||||||
(and (char-set? cs) ; Might be code...
|
(and (char-set? cs) ; Might be code...
|
||||||
(char-set-full? cs)))))
|
(char-set-full? cs)))))
|
||||||
|
|
||||||
(define re-nonl (make-re-char-set/posix (char-set #\newline) "[^\n]" '#()))
|
(define re-nonl
|
||||||
|
(make-re-char-set/posix (char-set-invert (char-set #\newline))
|
||||||
|
"[^\n]"
|
||||||
|
'#()))
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue