[Chicken-hackers] [PATCH 2/2] Generalize deprecation type warnings to refer to identifiers as values

[Evan Hanson]

This is instead of "library procedures", since deprecated identifiers
need not be procedures.
---
 scrutinizer.scm         |    4 ++--
 tests/scrutiny.expected |    4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 77d9de2..18c4e33 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 value `~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 value `~a' - consider using `~a' 
instead"
                    id (cadr a)))
                 '(*))
                (else (list a)))))
diff --git a/tests/scrutiny.expected b/tests/scrutiny.expected
index c4c21a2..aa0060e 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 value `deprecated-procedure'
 
 Warning: at toplevel:
-  use of deprecated library procedure `another-deprecated-procedure' - 
consider using `replacement-procedure' instead
+  use of deprecated value `another-deprecated-procedure' - consider using 
`replacement-procedure' instead
 
 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