Fixed bug in the definition of re-nonl and credited the guy that reported it.

-Olin
This commit is contained in:
shivers 1999-10-04 17:29:44 +00:00
parent 86300b9693
commit 232ab91be9
2 changed files with 5 additions and 1 deletions

View File

@ -261,6 +261,7 @@ particularly in the task of porting scsh to new platforms.
Jarmo Hurri Jarmo Hurri
Lars Kellogg-Stedman Lars Kellogg-Stedman
Andre Koehoerst Andre Koehoerst
Hannu Koivisto
Shriram Krishnamurthi Shriram Krishnamurthi
Jakob Lichtenberg Jakob Lichtenberg
Eric Marsden Eric Marsden

View File

@ -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]"
'#()))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;