summaryrefslogtreecommitdiff
path: root/libguile/dynwind.c
diff options
context:
space:
mode:
authorKeisuke Nishida <kxn30@po.cwru.edu>2001-06-26 15:46:40 +0000
committerKeisuke Nishida <kxn30@po.cwru.edu>2001-06-26 15:46:40 +0000
commitfdc2839563bd8c821221a4869f27255ae77f757b (patch)
tree63bc043598fe6d9c2cac3d3c7251898cc306f5cd /libguile/dynwind.c
parent36284627919a6968174b5f17369349187a2b4b1b (diff)
downloadguile-fdc2839563bd8c821221a4869f27255ae77f757b.tar.gz
* eval.c (scm_call_0, scm_call_1, scm_call_2, scm_call_3,
scm_apply_0, scm_apply_1, scm_apply_2, scm_apply_3): New functions.
Diffstat (limited to 'libguile/dynwind.c')
-rw-r--r--libguile/dynwind.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/dynwind.c b/libguile/dynwind.c
index f0777ab92..9c6ab1069 100644
--- a/libguile/dynwind.c
+++ b/libguile/dynwind.c
@@ -125,11 +125,11 @@ SCM_DEFINE (scm_dynamic_wind, "dynamic-wind", 3, 0, 0,
SCM_ASSERT (SCM_NFALSEP (scm_thunk_p (out_guard)),
out_guard,
SCM_ARG3, FUNC_NAME);
- scm_apply (in_guard, SCM_EOL, SCM_EOL);
+ scm_call_0 (in_guard);
scm_dynwinds = scm_acons (in_guard, out_guard, scm_dynwinds);
- ans = scm_apply (thunk, SCM_EOL, SCM_EOL);
+ ans = scm_call_0 (thunk);
scm_dynwinds = SCM_CDR (scm_dynwinds);
- scm_apply (out_guard, SCM_EOL, SCM_EOL);
+ scm_call_0 (out_guard);
return ans;
}
#undef FUNC_NAME
@@ -231,7 +231,7 @@ scm_dowinds (SCM to, long delta)
else if (SCM_GUARDSP (wind_key))
SCM_BEFORE_GUARD (wind_key) (SCM_GUARD_DATA (wind_key));
else if (SCM_TYP3 (wind_key) == scm_tc3_closure)
- scm_apply (wind_key, SCM_EOL, SCM_EOL);
+ scm_call_0 (wind_key);
}
}
scm_dynwinds = to;
@@ -263,7 +263,7 @@ scm_dowinds (SCM to, long delta)
else if (SCM_GUARDSP (wind_key))
SCM_AFTER_GUARD (wind_key) (SCM_GUARD_DATA (wind_key));
else if (SCM_TYP3 (wind_key) == scm_tc3_closure)
- scm_apply (from, SCM_EOL, SCM_EOL);
+ scm_call_0 (from);
}
}
delta--;