summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1998-07-30 14:44:01 +0000
committerJim Blandy <jimb@red-bean.com>1998-07-30 14:44:01 +0000
commit8ecf1f13594bda0554d7f2976ef64de15c5130a7 (patch)
tree02c08728f5b8f4800671c7024b98ccfa2a4daa54
parentd5cf0efe1f41707f451c9ca2e4c647d5f5ded047 (diff)
downloadguile-8ecf1f13594bda0554d7f2976ef64de15c5130a7.tar.gz
* eval.h (scm_eval_options_interface): Add external prototype for this.
* eval.c (scm_eval_options_interface): Use prototype-style def'n. * eval.c (scm_lookupcar1): Make this static.
-rw-r--r--libguile/eval.c9
1 files changed, 3 insertions, 6 deletions
diff --git a/libguile/eval.c b/libguile/eval.c
index 1a598105f..5b4ddb740 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -254,10 +254,8 @@ scm_ilookup (iloc, env)
#endif /* USE_THREADS */
-SCM *
-scm_lookupcar1 (vloc, genv)
- SCM vloc;
- SCM genv;
+static SCM *
+scm_lookupcar1 (SCM vloc, SCM genv)
{
SCM env = genv;
register SCM *al, fl, var = SCM_CAR (vloc);
@@ -1480,8 +1478,7 @@ scm_option scm_evaluator_trap_table[] = {
SCM_PROC (s_eval_options_interface, "eval-options-interface", 0, 1, 0, scm_eval_options_interface);
SCM
-scm_eval_options_interface (setting)
- SCM setting;
+scm_eval_options_interface (SCM setting)
{
SCM ans;
SCM_DEFER_INTS;