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 d087d0e67dd518ffd543cb7adbf54330c79a42b3..384a0538a4e90583eb2c69c9aac0932b85db30a9 100644 (file)
--- 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))))))))