From 072cb6f740edd03287b79b42f87b579991e4f9ff Mon Sep 17 00:00:00 2001 From: Neil Jerram Date: Sat, 14 Jul 2001 22:08:38 +0000 Subject: [PATCH] * debugger.scm (run-last-command): Return current state if last-command fluid is not yet set. --- ice-9/ChangeLog | 5 +++++ ice-9/debugger.scm | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index ea0fc5b95..73c1e4ea3 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,3 +1,8 @@ +2001-07-14 Neil Jerram + + * debugger.scm (run-last-command): Return current state if + last-command fluid is not yet set. + 2001-07-13 Marius Vollmer * safe-r5rs.scm: Use `re-export' instead of `export' for diff --git a/ice-9/debugger.scm b/ice-9/debugger.scm index 16b6d81b5..46b97b0f2 100644 --- a/ice-9/debugger.scm +++ b/ice-9/debugger.scm @@ -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