From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 30 Aug 2013 15:27:12 +0000 (+0000)
Subject: Show procedure name too in Edwin `show-parameter-list' command.
X-Git-Tag: release-9.2.0~143
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2b515f5454618cadb62d98d9aaddf2113013183c;p=mit-scheme.git

Show procedure name too in Edwin `show-parameter-list' command.

From Rich Loveland.
---

diff --git a/src/edwin/schmod.scm b/src/edwin/schmod.scm
index d087d0e67..384a0538a 100644
--- a/src/edwin/schmod.scm
+++ b/src/edwin/schmod.scm
@@ -294,11 +294,13 @@ Otherwise, it is shown in the echo area."
     (let ((start
 	   (forward-down-list (backward-up-list point 1 'ERROR) 1 'ERROR))
 	  (buffer (mark-buffer point)))
-      (let ((end (forward-sexp start 1 'ERROR)))
+      (let* ((end (forward-sexp start 1 'ERROR))
+             (procedure-region (make-region start end))
+             (procedure-name (region->string procedure-region)))
 	(let ((procedure
 	       (let ((environment (evaluation-environment buffer)))
 		 (extended-scode-eval
-		  (syntax (with-input-from-region (make-region start end) read)
+		  (syntax (with-input-from-region procedure-region read)
 			  environment)
 		  environment))))
 	  (if (procedure? procedure)
@@ -326,7 +328,7 @@ Otherwise, it is shown in the echo area."
 			       (insert-string " . " point)
 			       (insert-string (symbol-name argl) point)))))
 		    (fluid-let ((*unparse-uninterned-symbols-by-name?* #t))
-		      (message argl))))
+		      (message procedure-name ": " argl))))
 	      (editor-error "Expression does not evaluate to a procedure: "
 			    (extract-string start end))))))))