summaryrefslogtreecommitdiff
path: root/libguile/options.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/options.c')
-rw-r--r--libguile/options.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/options.c b/libguile/options.c
index c5260e669..f363ce866 100644
--- a/libguile/options.c
+++ b/libguile/options.c
@@ -121,7 +121,7 @@ SCM_SYMBOL (scm_no_sym, "no");
static SCM protected_objects;
SCM
-scm_options (SCM arg, scm_option options[], int n, const char *s)
+scm_options (SCM arg, scm_option_t options[], int n, const char *s)
{
int i, docp = (!SCM_UNBNDP (arg) && !SCM_NULLP (arg) && !SCM_CONSP (arg));
/* Let `arg' GC protect the arguments */
@@ -139,7 +139,7 @@ scm_options (SCM arg, scm_option options[], int n, const char *s)
ls);
break;
case SCM_OPTION_INTEGER:
- ls = scm_cons (SCM_MAKINUM ((int) options[i].val), ls);
+ ls = scm_cons (SCM_MAKINUM (options[i].val), ls);
break;
case SCM_OPTION_SCM:
ls = scm_cons ((SCM) options[i].val, ls);
@@ -212,7 +212,7 @@ scm_options (SCM arg, scm_option options[], int n, const char *s)
void
-scm_init_opts (SCM (*func) (SCM), scm_option options[], int n)
+scm_init_opts (SCM (*func) (SCM), scm_option_t options[], int n)
{
int i;