>From cf24d45002a334a145cdf58bf748df3087121a63 Mon Sep 17 00:00:00 2001 From: Evan Hanson Date: Mon, 19 May 2014 06:24:16 +1200 Subject: [PATCH] Generalize deprecation warnings MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Thanks to Jörg for the fully-general wording. --- scrutinizer.scm | 4 ++-- tests/scrutiny.expected | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/scrutinizer.scm b/scrutinizer.scm index 77d9de2..7094848 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 c4c21a2..5c072fc 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)' -- 1.7.10.4