diff options
author | Jim Blandy <jimb@red-bean.com> | 1998-07-30 14:44:01 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1998-07-30 14:44:01 +0000 |
commit | 8ecf1f13594bda0554d7f2976ef64de15c5130a7 (patch) | |
tree | 02c08728f5b8f4800671c7024b98ccfa2a4daa54 | |
parent | d5cf0efe1f41707f451c9ca2e4c647d5f5ded047 (diff) | |
download | guile-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.c | 9 |
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; |