diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2000-12-08 17:32:56 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2000-12-08 17:32:56 +0000 |
commit | e841c3e0c006a4c80d873f93cb512f0ec71a5705 (patch) | |
tree | a464d2eb9ca225d04d034b40e8b029efce1ea323 /libguile/continuations.c | |
parent | 38ae064c6e462bafc7e188b4586fb3e6eedec876 (diff) | |
download | guile-e841c3e0c006a4c80d873f93cb512f0ec71a5705.tar.gz |
Smob-related creanup.
Diffstat (limited to 'libguile/continuations.c')
-rw-r--r-- | libguile/continuations.c | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/libguile/continuations.c b/libguile/continuations.c index 5ef2219f1..7624f637b 100644 --- a/libguile/continuations.c +++ b/libguile/continuations.c @@ -66,7 +66,8 @@ scm_bits_t scm_tc16_continuation; -static SCM continuation_mark (SCM obj) +static SCM +continuation_mark (SCM obj) { scm_contregs *continuation = SCM_CONTREGS (obj); @@ -75,7 +76,8 @@ static SCM continuation_mark (SCM obj) return continuation->dynenv; } -static scm_sizet continuation_free (SCM obj) +static scm_sizet +continuation_free (SCM obj) { scm_contregs *continuation = SCM_CONTREGS (obj); /* stack array size is 1 if num_stack_items is 0 (rootcont). */ @@ -89,7 +91,8 @@ static scm_sizet continuation_free (SCM obj) return bytes_free; } -static int continuation_print (SCM obj, SCM port, scm_print_state *state) +static int +continuation_print (SCM obj, SCM port, scm_print_state *state) { scm_contregs *continuation = SCM_CONTREGS (obj); @@ -243,7 +246,6 @@ scm_init_continuations () scm_set_smob_free (scm_tc16_continuation, continuation_free); scm_set_smob_print (scm_tc16_continuation, continuation_print); scm_set_smob_apply (scm_tc16_continuation, continuation_apply, 0, 0, 1); - #ifndef SCM_MAGIC_SNARFER #include "libguile/continuations.x" #endif |