From 232ab91be9de96388ae013bbf970cc4ccd25aa24 Mon Sep 17 00:00:00 2001 From: shivers Date: Mon, 4 Oct 1999 17:29:44 +0000 Subject: [PATCH] Fixed bug in the definition of re-nonl and credited the guy that reported it. -Olin --- RELEASE | 1 + scsh/rx/re.scm | 5 ++++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/RELEASE b/RELEASE index 8df2b87..4daca6a 100644 --- a/RELEASE +++ b/RELEASE @@ -261,6 +261,7 @@ particularly in the task of porting scsh to new platforms. Jarmo Hurri Lars Kellogg-Stedman Andre Koehoerst + Hannu Koivisto Shriram Krishnamurthi Jakob Lichtenberg Eric Marsden diff --git a/scsh/rx/re.scm b/scsh/rx/re.scm index bf03461..104cb68 100644 --- a/scsh/rx/re.scm +++ b/scsh/rx/re.scm @@ -392,7 +392,10 @@ (and (char-set? cs) ; Might be code... (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]" + '#())) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;