diff --git a/mods/mod_io.c b/mods/mod_io.c index fbf101e..812a15c 100644 --- a/mods/mod_io.c +++ b/mods/mod_io.c @@ -78,8 +78,8 @@ static void bi_posix_open(interp_state_t *state) release_assert(is_valid_fixnum(saved_errno)); interp_return_values(state, - cons((fd >= 0) ? fixnum_value(fd) : FALSE_VALUE, - cons(fixnum_value(saved_errno), + make_pair((fd >= 0) ? make_fixnum(fd) : FALSE_VALUE, + make_pair(make_fixnum(saved_errno), NIL))); } @@ -101,8 +101,8 @@ static void bi_posix_dup(interp_state_t *state) release_assert(is_valid_fixnum(saved_errno)); interp_return_values(state, - cons((newfd >= 0) ? fixnum_value(newfd) : FALSE_VALUE, - cons(fixnum_value(saved_errno), + make_pair((newfd >= 0) ? make_fixnum(newfd) : FALSE_VALUE, + make_pair(make_fixnum(saved_errno), NIL))); } @@ -122,8 +122,8 @@ static void bi_posix_dup2(interp_state_t *state) release_assert(is_valid_fixnum(saved_errno)); interp_return_values(state, - cons((newfd >= 0) ? fixnum_value(newfd) : FALSE_VALUE, - cons(fixnum_value(saved_errno), + make_pair((newfd >= 0) ? make_fixnum(newfd) : FALSE_VALUE, + make_pair(make_fixnum(saved_errno), NIL))); } @@ -147,8 +147,8 @@ static void bi_posix_read(interp_state_t *state) release_assert(is_valid_fixnum(saved_errno)); interp_return_values(state, - cons((result >= 0) ? fixnum_value(result) : FALSE_VALUE, - cons(fixnum_value(saved_errno), + make_pair((result >= 0) ? make_fixnum(result) : FALSE_VALUE, + make_pair(make_fixnum(saved_errno), NIL))); } @@ -182,8 +182,8 @@ static void bi_posix_write(interp_state_t *state) release_assert(is_valid_fixnum(saved_errno)); interp_return_values(state, - cons((result >= 0) ? fixnum_value(result) : FALSE_VALUE, - cons(fixnum_value(saved_errno), + make_pair((result >= 0) ? make_fixnum(result) : FALSE_VALUE, + make_pair(make_fixnum(saved_errno), NIL))); } @@ -205,15 +205,15 @@ static void bi_posix_lseek(interp_state_t *state) if (result == (off_t)(-1)) { - interp_return_values(state, cons(FALSE_VALUE, cons(fixnum_value(saved_errno), NIL))); + interp_return_values(state, make_pair(FALSE_VALUE, make_pair(make_fixnum(saved_errno), NIL))); } else { release_assert((result >= 0) && (result <= FIXNUM_MAX)); interp_return_values(state, - cons(fixnum_value(result), - cons(fixnum_value(saved_errno), + make_pair(make_fixnum(result), + make_pair(make_fixnum(saved_errno), NIL))); } } @@ -231,8 +231,8 @@ static void bi_posix_close(interp_state_t *state) saved_errno = errno; interp_return_values(state, - cons(boolean_value(!result), - cons(fixnum_value(saved_errno), + make_pair(make_boolean(!result), + make_pair(make_fixnum(saved_errno), NIL))); } @@ -251,8 +251,8 @@ static void bi_posix_chdir(interp_state_t *state) free(pathname); interp_return_values(state, - cons(boolean_value(!result), - cons(fixnum_value(saved_errno), + make_pair(make_boolean(!result), + make_pair(make_fixnum(saved_errno), NIL))); } @@ -275,8 +275,8 @@ static void bi_posix_getcwd(interp_state_t *state) } interp_return_values(state, - cons(result_value, - cons(fixnum_value(saved_errno), + make_pair(result_value, + make_pair(make_fixnum(saved_errno), NIL))); }