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

Fix srfi-34 indentation

Browse source 
* module/srfi/srfi-34.scm (with-exception-handler): Fix indentation.
This commit is contained in:
Andy Wingo 2016-10-30 20:31:57 +01:00
parent a04739b31a
commit e5399d3e7c
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/srfi/srfi-34.scm
View file

@ -41,9 +41,9 @@ procedure that accepts one argument. It is installed as the current
exception handler for the dynamic extent (as determined by exception handler for the dynamic extent (as determined by
dynamic-wind) of the invocation of THUNK." dynamic-wind) of the invocation of THUNK."
(with-throw-handler throw-key (with-throw-handler throw-key
thunk thunk
(lambda (key obj) (lambda (key obj)
(handler obj)))) (handler obj))))
(define (raise obj) (define (raise obj)
"Invokes the current exception handler on OBJ. The handler is "Invokes the current exception handler on OBJ. The handler is