~ chicken-core (chicken-5) a1e59132528232e7fa39e83704c6501247f4c979

commit a1e59132528232e7fa39e83704c6501247f4c979
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Sat Mar 9 20:00:51 2019 +1300
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Sat Mar 9 20:38:15 2019 +1300

    Adjust scrutiny description of unknown procedures
    
    Instead of "In procedure `(unknown procedure)`", say "In a local
    procedure" to match the message used for unknown toplevel procedures.

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 0ebe2122..764dacf8 100644
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -2411,8 +2411,8 @@
 (define (location-name loc #!optional (indent "  "))
   (define (lname loc1)
     (if loc1
-	(real-name loc1)
-	"(unknown procedure)"))
+	(sprintf "In procedure `~a'," (real-name loc1))
+	"In a local procedure"))
   (if (null? loc)
       (conc "At the toplevel,\n" indent)
       (let rec ((loc loc)
@@ -2429,7 +2429,7 @@
 		       "In a toplevel procedure") msgs)
 	     (conc "\n" indent))
 	    (rec (cdr loc)
-		 (cons (sprintf "In procedure `~a'," (lname (car loc))) msgs))))))
+		 (cons (lname (car loc)) msgs))))))
 
 (define (variable-and-module name) ; -> (values var module-or-false)
   (let* ((str-name (if (symbol? name) (symbol->string name) name))