From 8751fedfe28eb94cb2974aeb5a2a08310c03d942 Mon Sep 17 00:00:00 2001 Message-Id: <8751fedfe28eb94cb2974aeb5a2a08310c03d942.1247165262.git.julian.graham@aya.yale.edu> From: Julian Graham 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