~ chicken-core (chicken-5) 493c89fd8b9fecae1c5f033e0de69dc7ff3f8a6b

commit 493c89fd8b9fecae1c5f033e0de69dc7ff3f8a6b
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Jul 28 16:26:49 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Jul 28 16:26:49 2010 +0200

    grep examples must use irregex

diff --git a/tests/sgrep.scm b/tests/sgrep.scm
index 7503256a..555829e4 100644
--- a/tests/sgrep.scm
+++ b/tests/sgrep.scm
@@ -1,7 +1,7 @@
 ;;;; sgrep.scm - grepping benchmark
 
 
-(use regex extras utils posix srfi-1)
+(use irregex extras utils posix srfi-1)
 
 
 (define big-string
@@ -21,7 +21,7 @@
 	       (lambda (line)
 		 (set! c (fx+ c 1))
 		 ;(when (zero? (fxmod c 500)) (print* "."))
-		 (when (string-search expr line)
+		 (when (irregex-search expr line)
 		   (set! h (fx+ h 1)))
 		 #f))
 	      ;(newline)