> 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.
Sorry about that, had a minor brain malfunction. What I *meant* to add
to the end of that was: do you guys think something like this is
appropriate for inclusion in Edwin? I know it's pretty minor.
===File ~/Desktop/show-param-list.patch=====================
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))))))))============================================================
_______________________________________________
MIT-Scheme-devel mailing list
MIT-Scheme-devel@gnu.org
https://lists.gnu.org/mailman/listinfo/mit-scheme-devel
