mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

(change_option_setting): Use scm_car instead of explicit type check

Browse source 
plus SCM_CAR.
This commit is contained in:
Marius Vollmer 2004-09-29 17:52:10 +00:00
parent 22e47f69ae
commit a2902ecb90
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/options.c
View file

@ -187,13 +187,11 @@ change_option_setting (SCM args, scm_t_option options[], unsigned int n, const c
break; break;
case SCM_OPTION_INTEGER: case SCM_OPTION_INTEGER:
args = SCM_CDR (args); args = SCM_CDR (args);
SCM_ASSERT (scm_is_pair (args), args, SCM_ARG1, s); flags[i] = scm_to_size_t (scm_car (args));
flags[i] = scm_to_size_t (SCM_CAR (args));
break; break;
case SCM_OPTION_SCM: case SCM_OPTION_SCM:
args = SCM_CDR (args); args = SCM_CDR (args);
SCM_ASSERT (scm_is_pair (args), args, SCM_ARG1, s); flags[i] = SCM_UNPACK (scm_car (args));
flags[i] = SCM_UNPACK (SCM_CAR (args));
break; break;
} }
found = 1; found = 1;