Remove "compiled closures" ("cclos") in favor of a simpler mechanism.

[bpt/guile.git] / srfi / srfi-34.scm

diff --git a/srfi/srfi-34.scm b/srfi/srfi-34.scm
index bd326be..18a2fda 100644 (file)
--- a/srfi/srfi-34.scm
+++ b/srfi/srfi-34.scm
@@ -1,6 +1,6 @@
 ;;; srfi-34.scm --- Exception handling for programs
 
-;; Copyright (C) 2003 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
@@ -14,7 +14,7 @@
 ;; 
 ;; You should have received a copy of the GNU Lesser General Public
 ;; License along with this library; if not, write to the Free Software
-;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 
 ;;; Author: Neil Jerram <neil@ossau.uklinux.net>
 
@@ -31,6 +31,8 @@
            raise)
   #:export-syntax (guard))
 
+(cond-expand-provide (current-module) '(srfi-34))
+
 (define throw-key 'srfi-34)
 
 (define (with-exception-handler handler thunk)
@@ -38,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))))