* *.c: Finish replacing K&R style prototypes with ANSI C

[bpt/guile.git] / libguile / options.c

diff --git a/libguile/options.c b/libguile/options.c
index ff35c1e..975c6d1 100644 (file)
--- a/libguile/options.c
+++ b/libguile/options.c
@@ -41,6 +41,10 @@
  *
  * The author can be reached at djurfeldt@nada.kth.se
  * Mikael Djurfeldt, SANS/NADA KTH, 10044 STOCKHOLM, SWEDEN */
+
+/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999,
+   gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */
+
 \f
 
 #include <stdio.h>
@@ -117,11 +121,7 @@ SCM_SYMBOL (scm_no_sym, "no");
 static SCM protected_objects;
 
 SCM
-scm_options (arg, options, n, s)
-     SCM arg;
-     scm_option options[];
-     int n;
-     const char *s;
+scm_options (SCM arg, scm_option options[], int n, const char *s)
 {
   int i, docp = (!SCM_UNBNDP (arg)
                 && !SCM_NULLP (arg)
@@ -213,10 +213,7 @@ scm_options (arg, options, n, s)
 
 
 void
-scm_init_opts (func, options, n)
-     SCM (*func) (SCM);
-     scm_option options[];
-     int n;
+scm_init_opts (SCM (*func) (SCM), scm_option options[], int n)
 {
   int i;