- SCM l = SCM_EOL;
- for (int i = SCM_VECTOR_LENGTH (hash_tab_); i--;)
- for (SCM s = scm_vector_ref (hash_tab_, gh_int2scm (i)); ly_pair_p(s); s = ly_cdr (s))
- {
- l = scm_acons (ly_caar (s), ly_cdar (s), l);
- }
- return l;
+ SCM lst = SCM_EOL;
+ for (int i = scm_c_vector_length (hash_tab_); i--;)
+ for (SCM s = scm_vector_ref (hash_tab_, scm_from_int (i)); scm_is_pair (s);
+ s = scm_cdr (s))
+ lst = scm_acons (scm_caar (s), scm_cdar (s), lst);
+ return lst;