/[guile]/guile/guile-core/srfi/srfi-34.scm
ViewVC logotype

Diff of /guile/guile-core/srfi/srfi-34.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by ossau, Wed Apr 30 00:06:33 2003 UTC revision 1.2 by kryde, Mon Jul 28 23:46:48 2003 UTC
# Line 31  Line 31 
31              raise)              raise)
32    #:export-syntax (guard))    #:export-syntax (guard))
33    
34    (cond-expand-provide (current-module) '(srfi-34))
35    
36  (define throw-key 'srfi-34)  (define throw-key 'srfi-34)
37    
38  (define (with-exception-handler handler thunk)  (define (with-exception-handler handler thunk)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26