trace examples broken in master

[Julian Graham <joolean@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 636 bytes --]

Hi Guilers,

I went to try out some of the traps / tracing features in the debugger
last night, and I ran into some compilation issues with `(ice-9
debugging ice-9-debugger-extensions)'.  A patch that resolves them is
attached -- I haven't pushed because I'm not sure I fully understand
the broader context of the code (e.g., why are we checking the version
when the debugger is now part of Guile itself?), and because I'm still
a little git-shy.

More importantly, though, tracing (as per the examples in section
5.21.3.5 of the manual) doesn't seem to produce any output.  Not sure
where to look to figure that out.


Regards,
Julian

[-- Attachment #2: 0001-Fix-compilation-issue-in-ice-9-debugger-extensions.patch --]
[-- Type: text/x-patch, Size: 1893 bytes --]

From 8751fedfe28eb94cb2974aeb5a2a08310c03d942 Mon Sep 17 00:00:00 2001
Message-Id: <8751fedfe28eb94cb2974aeb5a2a08310c03d942.1247165262.git.julian.graham@aya.yale.edu>
From: Julian Graham <julian.graham@aya.yale.edu>
Date: Thu, 9 Jul 2009 14:44:53 -0400
Subject: [PATCH] Fix compilation issue in ice-9-debugger-extensions

* module/ice-9/debugging/ice-9-debugger-extensions.scm: Replace `define' in cond expressions.
---
 .../ice-9/debugging/ice-9-debugger-extensions.scm  |   13 +++++++------
 1 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/module/ice-9/debugging/ice-9-debugger-extensions.scm b/module/ice-9/debugging/ice-9-debugger-extensions.scm
index a8b8c97..df4f4a6 100644
--- a/module/ice-9/debugging/ice-9-debugger-extensions.scm
+++ b/module/ice-9/debugging/ice-9-debugger-extensions.scm
@@ -32,10 +32,10 @@
 	 #:use-module (ice-9 debugger)
 	 #:use-module (ice-9 debugger state)
 	 #:use-module (ice-9 debugging traps))
-       (define new-define-command define-command)
-       (set! define-command
-	     (lambda (name argument-template documentation procedure)
-	       (new-define-command name argument-template procedure))))
+       (let ((new-define-command define-command))
+	 (set! define-command
+	       (lambda (name argument-template documentation procedure)
+		 (new-define-command name argument-template procedure)))))
       (else
        (define-module (ice-9 debugger))))
 
@@ -126,8 +126,9 @@ print the result obtained."
 
 (cond ((string>=? (version) "1.7"))
       (else
-       (define (debugger-command-loop state)
-	 (read-and-dispatch-commands state (current-input-port)))))
+       (set! debugger-command-loop 
+	     (lambda (state)
+	       (read-and-dispatch-commands state (current-input-port))))))
 
 (define-public (debug-trap trap-context)
   "Invoke the Guile debugger to explore the stack at the specified @var{trap}."
-- 
1.6.0.4