guile/guile-core/ice-9 debugger.scm ChangeLog

[Neil Jerram]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Neil Jerram <address@hidden>    01/08/02 12:52:09

Modified files:
        guile-core/ice-9: debugger.scm ChangeLog 

Log message:
        * Fix obscure debugger bug - trying to rerun last command when last 
command
        fluid is not yet set.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/debugger.scm.diff?cvsroot=OldCVS&tr1=1.11&tr2=1.12&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/ChangeLog.diff?cvsroot=OldCVS&tr1=1.469&tr2=1.470&r1=text&r2=text

Patches:
Index: guile/guile-core/ice-9/ChangeLog
diff -u guile/guile-core/ice-9/ChangeLog:1.469 
guile/guile-core/ice-9/ChangeLog:1.470
--- guile/guile-core/ice-9/ChangeLog:1.469      Thu Aug  2 03:29:32 2001
+++ guile/guile-core/ice-9/ChangeLog    Thu Aug  2 12:52:09 2001
@@ -1,3 +1,8 @@
+2001-08-02  Neil Jerram  <address@hidden>
+
+       * debugger.scm (run-last-command): Return current state if
+       last-command fluid is not yet set.
+
 2001-08-02  Thien-Thi Nguyen  <address@hidden>
 
        * getopt-long.scm: Refill to fit in 80 columns.
Index: guile/guile-core/ice-9/debugger.scm
diff -u guile/guile-core/ice-9/debugger.scm:1.11 
guile/guile-core/ice-9/debugger.scm:1.12
--- guile/guile-core/ice-9/debugger.scm:1.11    Thu Jul 19 13:24:49 2001
+++ guile/guile-core/ice-9/debugger.scm Thu Aug  2 12:52:09 2001
@@ -114,7 +114,8 @@
 (define (run-last-command state)
   (let ((procedure (fluid-ref last-command)))
     (if procedure
-       (procedure state))))
+       (procedure state)
+       state)))
 
 (define (catch-user-errors port thunk)
   (catch 'debugger-user-error