summaryrefslogtreecommitdiff
path: root/libguile/options.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/options.c')
-rw-r--r--libguile/options.c15
1 files changed, 6 insertions, 9 deletions
diff --git a/libguile/options.c b/libguile/options.c
index ff35c1e26..975c6d1c1 100644
--- 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 */
+
#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;