mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 04:40:29 +02:00
Code Activity

* debugger.scm (run-last-command): Return current state if

Browse source 
last-command fluid is not yet set.
This commit is contained in:
Neil Jerram 2001-07-14 22:08:38 +00:00
parent c4b1aa8b94
commit 072cb6f740
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/ChangeLog
View file

@ -1,3 +1,8 @@
2001-07-14 Neil Jerram <neil@ossau.uklinux.net>
* debugger.scm (run-last-command): Return current state if
last-command fluid is not yet set.
2001-07-13 Marius Vollmer <mvo@zagadka.ping.de>
* safe-r5rs.scm: Use `re-export' instead of `export' for

3
ice-9/debugger.scm
View file

@ -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