From adb23298637edb2365fd78e98020f9aeb457b6ec Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Fri, 27 Nov 2015 15:23:12 +0100
Subject: [PATCH] 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, 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.