diff options
author | Andy Wingo <wingo@pobox.com> | 2009-01-12 21:36:39 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-01-12 21:36:39 +0100 |
commit | c32929d14d40f9e00c3fd10d3f51d54733ebf687 (patch) | |
tree | c803163a177580b5a8506052a18664a48504ba00 /module/srfi/srfi-34.scm | |
parent | c41350777d6faf05f80627f97ca01cd5c8fac47b (diff) | |
parent | dc686d7b0a1490e26482e018489dec040b79b952 (diff) | |
download | guile-c32929d14d40f9e00c3fd10d3f51d54733ebf687.tar.gz |
Merge commit 'origin/master' into vm
Conflicts:
.gitignore
guile-tools.in
srfi/srfi-19.scm
Diffstat (limited to 'module/srfi/srfi-34.scm')
-rw-r--r-- | module/srfi/srfi-34.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/srfi/srfi-34.scm b/module/srfi/srfi-34.scm index 5101b543d..18a2fda1c 100644 --- a/module/srfi/srfi-34.scm +++ b/module/srfi/srfi-34.scm @@ -1,6 +1,6 @@ ;;; srfi-34.scm --- Exception handling for programs -;; Copyright (C) 2003, 2006 Free Software Foundation, Inc. +;; Copyright (C) 2003, 2006, 2008 Free Software Foundation, Inc. ;; ;; This library is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public @@ -40,7 +40,7 @@ procedure that accepts one argument. It is installed as the current exception handler for the dynamic extent (as determined by dynamic-wind) of the invocation of THUNK." - (lazy-catch throw-key + (with-throw-handler throw-key thunk (lambda (key obj) (handler obj)))) |