~ chicken-core (chicken-5) f47e7cc5ff02acdf93f52bf76444366e8d99145d

commit f47e7cc5ff02acdf93f52bf76444366e8d99145d
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Mon May 19 06:24:16 2014 +1200
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Sun May 18 20:40:15 2014 +0200

    Generalize deprecation warnings
    
    Thanks to Jörg for the fully-general wording.
    
    Signed-off-by: Peter Bex <peter.bex@xs4all.nl>

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 77d9de2a..7094848f 100644
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -165,13 +165,13 @@
 		((eq? a 'deprecated)
 		 (report
 		  loc
-		  (sprintf "use of deprecated library procedure `~a'" id) )
+		  (sprintf "use of deprecated `~a'" id))
 		 '(*))
 		((and (pair? a) (eq? (car a) 'deprecated))
 		 (report
 		  loc
 		  (sprintf 
-		      "use of deprecated library procedure `~a' - consider using `~a' instead"
+		      "use of deprecated `~a' - consider `~a'"
 		    id (cadr a)))
 		 '(*))
 		(else (list a)))))
diff --git a/tests/scrutiny.expected b/tests/scrutiny.expected
index c4c21a21..5c072fc6 100644
--- a/tests/scrutiny.expected
+++ b/tests/scrutiny.expected
@@ -94,10 +94,10 @@ Warning: in toplevel procedure `foo#blabla':
   (scrutiny-tests.scm:133) in procedure call to `+', expected argument #2 of type `number', but was given an argument of type `symbol'
 
 Warning: at toplevel:
-  use of deprecated library procedure `deprecated-procedure'
+  use of deprecated `deprecated-procedure'
 
 Warning: at toplevel:
-  use of deprecated library procedure `another-deprecated-procedure' - consider using `replacement-procedure' instead
+  use of deprecated `another-deprecated-procedure' - consider `replacement-procedure'
 
 Warning: at toplevel:
   (scrutiny-tests.scm:158) in procedure call to `apply1', expected argument #2 of type `(list-of number)', but was given an argument of type `(list symbol fixnum fixnum)'