diff options
Diffstat (limited to 'libguile/options.c')
-rw-r--r-- | libguile/options.c | 6 |
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; |