~ chicken-core (chicken-5) cc6cdd802cccd9dd9e4302eefae63b414e0c7a4f

commit cc6cdd802cccd9dd9e4302eefae63b414e0c7a4f
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Aug 4 05:37:33 2011 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Aug 4 05:37:33 2011 -0400

    added use of er-m-t

diff --git a/private-namespace.scm b/private-namespace.scm
index 357588c3..17ce7683 100644
--- a/private-namespace.scm
+++ b/private-namespace.scm
@@ -26,21 +26,22 @@
 
 
 (define-syntax private
-  (lambda (form r c)
-    (let ((namespace (cadr form))
-	  (vars (cddr form)))
-      (##sys#check-symbol namespace 'private)
-      (let* ((str (symbol->string namespace)) ; somewhat questionable (renaming)
-	     (prefix (string-append 
-		      (string (integer->char (string-length str)))
-		      (symbol->string namespace))))
-	(for-each
-	 (lambda (var)
-	   (put! 
-	    var 'c:namespace
-	    (##sys#string->qualified-symbol prefix (symbol->string var))))
-	 vars)
-	'(##core#undefined) ) ) ) ) 
+  (er-macro-transformer
+   (lambda (form r c)
+     (let ((namespace (cadr form))
+	   (vars (cddr form)))
+       (##sys#check-symbol namespace 'private)
+       (let* ((str (symbol->string namespace)) ; somewhat questionable (renaming)
+	      (prefix (string-append 
+		       (string (integer->char (string-length str)))
+		       (symbol->string namespace))))
+	 (for-each
+	  (lambda (var)
+	    (put! 
+	     var 'c:namespace
+	     (##sys#string->qualified-symbol prefix (symbol->string var))))
+	  vars)
+	 '(##core#undefined) ) ) ) ) )
 
 (set! ##sys#alias-global-hook
   (lambda (var . assign)		; must work with old chicken