~ chicken-core (chicken-5) a59ef9ac0f452aed547973db46351af9c57fe91e

commit a59ef9ac0f452aed547973db46351af9c57fe91e
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Tue Mar 19 12:06:22 2019 +1300
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Wed Mar 20 09:18:18 2019 +1300

    Add trailing comma to two scrutinizer message lines
    
    These should have been included in a1e59132.

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 764dacf8..7d767df2 100644
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -2412,7 +2412,7 @@
   (define (lname loc1)
     (if loc1
 	(sprintf "In procedure `~a'," (real-name loc1))
-	"In a local procedure"))
+	"In a local procedure,"))
   (if (null? loc)
       (conc "At the toplevel,\n" indent)
       (let rec ((loc loc)
@@ -2426,7 +2426,7 @@
 		       (receive (var mod) (variable-and-module (real-name (car loc)))
 			 (conc (if mod (sprintf "In module `~a',~%~a" mod indent) "")
 			       (sprintf "In procedure `~a'," var)))
-		       "In a toplevel procedure") msgs)
+		       "In a toplevel procedure,") msgs)
 	     (conc "\n" indent))
 	    (rec (cdr loc)
 		 (cons (lname (car loc)) msgs))))))