From d8e2ba23fc30cd705f9e3dacb149cf5395299f5d Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 21 Sep 2010 21:48:09 +0200 Subject: [PATCH] (system repl command) cleanups * module/system/repl/command.scm (profile, trace, inspect) (pretty-print): Use repl-prepare-eval-thunk instead of the lower-level compile and make-program. --- module/system/repl/command.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm index ed1cba9f9..cb467ceb7 100644 --- a/module/system/repl/command.scm +++ b/module/system/repl/command.scm @@ -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)