diff options
author | Andy Wingo <wingo@pobox.com> | 2015-11-27 15:23:12 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2015-12-01 11:30:54 +0100 |
commit | adb23298637edb2365fd78e98020f9aeb457b6ec (patch) | |
tree | ed6210d372d41c2bd87b8023d150d989b4ef284b | |
parent | 2d0214a9b741083ca89d587016c86ad7b4c4bf1b (diff) | |
download | guile-adb23298637edb2365fd78e98020f9aeb457b6ec.tar.gz |
Remove `procedure' repl command
* doc/ref/scheme-using.texi (Debug Commands):
* module/system/repl/command.scm (procedure): Remove REPL command.
Since there is a closure binding and we have improved the ,registers
output, this is no longer necessary and by removing it we remove
another bogus use of frame-procedure.
-rw-r--r-- | doc/ref/scheme-using.texi | 4 | ||||
-rw-r--r-- | module/system/repl/command.scm | 5 |
2 files changed, 0 insertions, 9 deletions
diff --git a/doc/ref/scheme-using.texi b/doc/ref/scheme-using.texi index 4422c1863..9334218b6 100644 --- a/doc/ref/scheme-using.texi +++ b/doc/ref/scheme-using.texi @@ -341,10 +341,6 @@ Show the selected frame. With an argument, select a frame by index, then show it. @end deffn -@deffn {REPL Command} procedure -Print the procedure for the selected frame. -@end deffn - @deffn {REPL Command} locals Show local variables. diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm index 62bc2977a..e84586318 100644 --- a/module/system/repl/command.scm +++ b/module/system/repl/command.scm @@ -645,11 +645,6 @@ With an argument, select a frame by index, then show it." (format #t "No such frame.~%")))) (else (print-frame cur #:index index)))) -(define-stack-command (procedure repl) - "procedure -Print the procedure for the selected frame." - (repl-print repl (frame-procedure cur))) - (define-stack-command (locals repl #:key (width (terminal-width))) "locals Show local variables. |