~ chicken-core (chicken-5) 57ad774af75251f0264d2e3d72e4e98722e4ee81

commit 57ad774af75251f0264d2e3d72e4e98722e4ee81
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Aug 19 05:54:50 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Aug 19 05:54:50 2010 -0400

    scrutinizer message changed again

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 6d758f6b..d3105b7a 100644
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -89,12 +89,13 @@
 		   ((eq? a 'deprecated)
 		    (report
 		     loc
-		     (sprintf "use of deprecated toplevel identifier `~a'" id) )
+		     (sprintf "use of deprecated library procedure `~a'" id) )
 		    '*)
 		   ((and (pair? a) (eq? (car a) 'deprecated))
 		    (report 
 		     loc
-		     (sprintf "use of deprecated library toplevel identifier `~a' - consider using `~a' instead"
+		     (sprintf 
+			 "use of deprecated library procedure `~a' - consider using `~a' instead"
 		       id (cadr a)))
 		     '*)
 		   (else (list a)))))
diff --git a/tests/scrutiny.expected b/tests/scrutiny.expected
index 9c5c82a8..cd3a5bc4 100644
--- a/tests/scrutiny.expected
+++ b/tests/scrutiny.expected
@@ -1,6 +1,6 @@
 
 Warning: at toplevel:
-  use of deprecated toplevel identifier `current-environment'
+  use of deprecated library procedure `current-environment'
 
 Warning: in local procedure `c',
   in local procedure `b',