summaryrefslogtreecommitdiff
path: root/libguile/throw.c
diff options
context:
space:
mode:
authorGary Houston <ghouston@arglist.com>2000-03-12 19:58:56 +0000
committerGary Houston <ghouston@arglist.com>2000-03-12 19:58:56 +0000
commit19b27fa236d0a5e20a01443070a4bcffe025af05 (patch)
tree47acaaa74c16538afcd08006a57901c56e205559 /libguile/throw.c
parentf8a72ca4c983b3e4c19bffb9ec1e9b433331df8b (diff)
downloadguile-19b27fa236d0a5e20a01443070a4bcffe025af05.tar.gz
* fports.c (scm_fdes_to_port): call fcntl F_GETFL to test that
the fdes is valid before doing anything else. check that the file descriptor supports the modes required. (scm_fport_buffer_add): don't throw an error if fstat doesn't work: just use the default buffer size. * throw.c: change an outdated comment about scm_internal_catch BODY: it doesn't take a jumpbuf arg. * init.c (scm_standard_stream_to_port): install a handler in case scm_fdes_to_port throws an error. don't check here whether the file descriptor is valid, since scm_fdes_to_port will do that. set the revealed count depending on whether the port got the standard file descriptor. (stream_body_data): new type. (stream_body, stream_handler): new procs.
Diffstat (limited to 'libguile/throw.c')
-rw-r--r--libguile/throw.c5
1 files changed, 1 insertions, 4 deletions
diff --git a/libguile/throw.c b/libguile/throw.c
index 9096c8216..b3f9ed1d0 100644
--- a/libguile/throw.c
+++ b/libguile/throw.c
@@ -148,13 +148,11 @@ struct jmp_buf_and_retval /* use only on the stack, in scm_catch */
BODY is a pointer to a C function which runs the body of the catch;
this is the code you can throw from. We call it like this:
- BODY (BODY_DATA, JMPBUF)
+ BODY (BODY_DATA)
where:
BODY_DATA is just the BODY_DATA argument we received; we pass it
through to BODY as its first argument. The caller can make
BODY_DATA point to anything useful that BODY might need.
- JMPBUF is the Scheme jmpbuf object corresponding to this catch,
- which we have just created and initialized.
HANDLER is a pointer to a C function to deal with a throw to TAG,
should one occur. We call it like this:
@@ -610,7 +608,6 @@ SCM_DEFINE (scm_throw, "throw", 1, 0, 1,
}
#undef FUNC_NAME
-
SCM
scm_ithrow (SCM key, SCM args, int noreturn)
{