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
dynamic-wind) of the invocation of THUNK."
(with-throw-handler throw-key
thunk
(lambda (key obj)
(handler obj))))
thunk
(lambda (key obj)
(handler obj))))
(define (raise obj)
"Invokes the current exception handler on OBJ. The handler is