mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

* eval.h (scm_eval_options_interface): Add external prototype for this.

Browse source 
* eval.c (scm_eval_options_interface): Use prototype-style def'n.
* eval.c (scm_lookupcar1): Make this static.
This commit is contained in:
Jim Blandy 1998-07-30 14:44:01 +00:00
parent d5cf0efe1f
commit 8ecf1f1359
1 changed files with 3 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/eval.c
View file

@ -254,10 +254,8 @@ scm_ilookup (iloc, env)
#endif /* USE_THREADS */ #endif /* USE_THREADS */
SCM * static SCM *
scm_lookupcar1 (vloc, genv) scm_lookupcar1 (SCM vloc, SCM genv)
SCM vloc;
SCM genv;
{ {
SCM env = genv; SCM env = genv;
register SCM *al, fl, var = SCM_CAR (vloc); 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_PROC (s_eval_options_interface, "eval-options-interface", 0, 1, 0, scm_eval_options_interface);
SCM SCM
scm_eval_options_interface (setting) scm_eval_options_interface (SCM setting)
SCM setting;
{ {
SCM ans; SCM ans;
SCM_DEFER_INTS; SCM_DEFER_INTS;