I've tweaked Edwin's `show-parameter-list' command to display the
procedure's name in front of the parameter list in the minibuffer as
follows:
`bind-condition-handler: (types handler thunk)'
I find this easier to read because it aligns more closely to how the
code in the buffer looks, as well as reminding me what procedure I'm
currently looking at the arguments for.
The operation of the command when used with a prefix argument is
unchanged.
diff --git a/src/edwin/schmod.scm b/src/edwin/schmod.scm
index 6336943..63ba216 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))))))))
Subprocess exited abnormally with code 1.
_______________________________________________
MIT-Scheme-devel mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/mit-scheme-devel
