~ chicken-core (chicken-5) 9faf228474c6a0e73f892fe92033a45e1d5ae424

commit 9faf228474c6a0e73f892fe92033a45e1d5ae424
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Jul 11 22:58:42 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Jul 11 22:58:42 2011 +0200

    chicken-status did not accept patterns as documented

diff --git a/chicken-status.scm b/chicken-status.scm
index 3e7d59df..2d456def 100644
--- a/chicken-status.scm
+++ b/chicken-status.scm
@@ -141,7 +141,7 @@ EOF
 				    (exact (map (lambda (p)
 						  (string-append "^" (irregex-quote p) "$"))
 						pats))
-				    (else pats))))
+				    (else (map ##sys#glob->regexp pats)))))
 			    (eggs (gather-eggs patterns)))
 		       (if (null? eggs)
 			   (print "(none)")