[Guile-commits] 13/41: Remove `procedure' repl command

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit adb23298637edb2365fd78e98020f9aeb457b6ec
Author: Andy Wingo <wi...@pobox.com>
Date:   Fri Nov 27 15:23:12 2015 +0100

    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.
---
 doc/ref/scheme-using.texi      |    4 ----
 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 4422c18..9334218 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 62bc297..e845863 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.