#define _MACROS_H
#define tomd_p(...) {printf("[tomd] "); printf(__VA_ARGS__); printf("\n");}
-
+#define SCM_ARR(arr, index) (scm_list_ref(arr, scm_from_int(index)))
#endif
SCM scm_i =
scm_from_signed_integer(i);
SCM scm_cur_job =
- scm_list_ref(scm_job_list, scm_i);
+ SCM_ARR(scm_job_list, i);
/* scm_cur_job should be a job */
if(scm_is_false(scm_call(scm_job_predicate, scm_cur_job, SCM_UNDEFINED))){
j < jlen;
j++){
real_args[j] =
- scm_to_locale_string(scm_list_ref(scm_args, scm_from_int(j)));
+ scm_to_locale_string(SCM_ARR(scm_args, j));
}
tomd_p("JOB <%d>:", i);