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

(system repl command) cleanups

Browse source 
* module/system/repl/command.scm (profile, trace, inspect)
  (pretty-print): Use repl-prepare-eval-thunk instead of the lower-level
  compile and make-program.
This commit is contained in:
Andy Wingo 2010-09-21 21:48:09 +02:00
parent 65bce23759
commit d8e2ba23fc
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -438,7 +438,7 @@ Time execution."
Profile execution."
;; FIXME opts
(apply statprof
(make-program (repl-compile repl (repl-parse repl form)))
(repl-prepare-eval-thunk repl (repl-parse repl form))
opts))
(define-meta-command (trace repl (form) . opts)
@ -447,7 +447,7 @@ Trace execution."
;; FIXME: doc options, or somehow deal with them better
(apply vm-trace
(the-vm)
(make-program (repl-compile repl (repl-parse repl form)))
(repl-prepare-eval-thunk repl (repl-parse repl form))
opts))
@ -630,14 +630,14 @@ Enable a trap."
(define-stack-command (inspect repl (form))
"inspect EXP
Inspect the result(s) of evaluating EXP."
(call-with-values (make-program (repl-compile repl (repl-parse repl form)))
(call-with-values (repl-prepare-eval-thunk repl (repl-parse repl form))
(lambda args
(for-each %inspect args))))
(define-meta-command (pretty-print repl (form))
"pretty-print EXP
Pretty-print the result(s) of evaluating EXP."
(call-with-values (make-program (repl-compile repl (repl-parse repl form)))
(call-with-values (repl-prepare-eval-thunk repl (repl-parse repl form))
(lambda args
(for-each
(lambda (x)