[Guile-commits] GNU Guile branch, master, updated. release_1-9-6-29-g737caee

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=737caee88dae8d442950efeee98ea83c1e7db7a4

The branch, master has been updated
       via  737caee88dae8d442950efeee98ea83c1e7db7a4 (commit)
      from  9eaa8fef80b3bf2ece73936fc3c9e5c136df8e78 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 737caee88dae8d442950efeee98ea83c1e7db7a4
Author: Andy Wingo <address@hidden>
Date:   Mon Dec 21 23:13:05 2009 +0100

    tracing at repl
    
    * module/system/repl/command.scm (option, trace): Integrate tracing (via
      ,trace or ,tr).

-----------------------------------------------------------------------

Summary of changes:
 module/system/repl/command.scm |   19 +++++++++----------
 1 files changed, 9 insertions(+), 10 deletions(-)

diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm
index 3e6e779..5fac6f6 100644
--- a/module/system/repl/command.scm
+++ b/module/system/repl/command.scm
@@ -29,7 +29,7 @@
   #:use-module (system vm vm)
   #:autoload (system base language) (lookup-language language-reader)
   #:autoload (system vm debug) (vm-debugger vm-backtrace)
-  #:autoload (system vm trace) (vm-trace vm-trace-on vm-trace-off)
+  #:autoload (system vm trace) (vm-trace vm-trace-on! vm-trace-off!)
   #:autoload (system vm profile) (vm-profile)
   #:use-module (ice-9 format)
   #:use-module (ice-9 session)
@@ -233,8 +233,9 @@ List/show/set options."
        ((trace)
         (let ((vm (repl-vm repl)))
           (if val
-              (apply vm-trace-on vm val)
-              (vm-trace-off vm))))))))
+              (apply vm-trace-on! vm val)
+              ;; fixme: asymmetry
+              (vm-trace-off! vm))))))))
 
 (define-meta-command (quit repl)
   "quit
@@ -386,13 +387,11 @@ Start debugger."
 
 (define-meta-command (trace repl form . opts)
   "trace FORM
-Trace execution.
-
-  -s    Display stack
-  -l    Display local variables
-  -b    Bytecode level trace"
-  (apply vm-trace (repl-vm repl)
-         (repl-compile repl (repl-parse repl form))
+Trace execution."
+  ;; FIXME: doc, or somehow deal with them better
+  (apply vm-trace
+         (repl-vm repl)
+         (make-program (repl-compile repl (repl-parse repl form)))
          opts))
 
 (define-meta-command (step repl)


hooks/post-receive
-- 
GNU Guile