mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

Remove `procedure' repl command

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2015-11-27 15:23:12 +01:00
parent 2d0214a9b7
commit adb2329863
2 changed files with 0 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

4
doc/ref/scheme-using.texi
View file

@ -341,10 +341,6 @@ Show the selected frame. With an argument, select a frame by index,
then show it. then show it.
@end deffn @end deffn
@deffn {REPL Command} procedure
Print the procedure for the selected frame.
@end deffn
@deffn {REPL Command} locals @deffn {REPL Command} locals
Show local variables. Show local variables.

5
module/system/repl/command.scm
View file

@ -645,11 +645,6 @@ With an argument, select a frame by index, then show it."
(format #t "No such frame.~%")))) (format #t "No such frame.~%"))))
(else (print-frame cur #:index index)))) (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))) (define-stack-command (locals repl #:key (width (terminal-width)))
"locals "locals
Show local variables. Show local variables.