~ chicken-core (chicken-5) b3ad21fa8e5236b0d5f2fbfdd365581b19e6ea4d

commit b3ad21fa8e5236b0d5f2fbfdd365581b19e6ea4d
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Jul 27 13:42:57 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Jul 27 13:42:57 2010 +0200

    yes, yes.

diff --git a/chicken-status.scm b/chicken-status.scm
index 7859672d..5222ebb0 100644
--- a/chicken-status.scm
+++ b/chicken-status.scm
@@ -115,8 +115,8 @@ EOF
 
   (define (main args)
     (let ((files #f)
-	  (exact f))
-      (loop ((args args) (pats '()))
+	  (exact #f))
+      (let loop ((args args) (pats '()))
 	(if (null? args)
 	    (let ((status
 		   (lambda ()
@@ -126,7 +126,7 @@ EOF
 			      (cond ((null? pats) '(".*"))
 				    ;;XXX change for total-irregex branch:
 				    (exact (map (lambda (p)
-						  (string-append "^" (regexp-quote p) "$"))
+						  (string-append "^" (regexp-escape p) "$"))
 						pats))
 				    (else pats))))
 			    (eggs (gather-eggs patterns)))
@@ -152,6 +152,9 @@ EOF
 		    ((string=? arg "-target")
 		     (set! *host-extensions* #f)
 		     (loop (cdr args) pats))
+		    ((string=? arg "-exact")
+		     (set! exact #t)
+		     (loop (cdr args) pats))
 		    ((or (string=? arg "-f") (string=? arg "-files"))
 		     (set! files #t)
 		     (loop (cdr args) pats))
diff --git a/tests/syntax-tests.scm b/tests/syntax-tests.scm
index 653721ed..c2101653 100644
--- a/tests/syntax-tests.scm
+++ b/tests/syntax-tests.scm
@@ -464,17 +464,17 @@
 
 ;;; import not seen, if explicitly exported and renamed:
 
-(module foo ((bar baz))
+(module rfoo (rbar rbaz)
 (import scheme chicken)
 
-(define (baz x)
+(define (rbaz x)
   (print x))
 
-(define-syntax bar
+(define-syntax rbar
   (syntax-rules ()
-    ((_ x) (baz x))))
+    ((_ x) (rbaz x))))
 
 )
 
-(import (prefix foo f:))
-(f:bar 1)
+(import (prefix rfoo f:))
+(f:rbar 1)