diff options
-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. |