Parent Directory | Revision Log | 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) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |