nybble
/
rosella
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix up remaining references to boolean_value, fixnum_value, and cons.

This commit is contained in:
Jesse D. McDonald 2012-07-14 13:52:25 -05:00
parent 3d478c85ee
commit 8c683a2451
1 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
mods/mod_io.c
View File

@ -78,8 +78,8 @@ static void bi_posix_open(interp_state_t *state)
release_assert(is_valid_fixnum(saved_errno)); release_assert(is_valid_fixnum(saved_errno));
interp_return_values(state, interp_return_values(state,
cons((fd >= 0) ? fixnum_value(fd) : FALSE_VALUE, make_pair((fd >= 0) ? make_fixnum(fd) : FALSE_VALUE,
cons(fixnum_value(saved_errno), make_pair(make_fixnum(saved_errno),
NIL))); NIL)));
} }
@ -101,8 +101,8 @@ static void bi_posix_dup(interp_state_t *state)
release_assert(is_valid_fixnum(saved_errno)); release_assert(is_valid_fixnum(saved_errno));
interp_return_values(state, interp_return_values(state,
cons((newfd >= 0) ? fixnum_value(newfd) : FALSE_VALUE, make_pair((newfd >= 0) ? make_fixnum(newfd) : FALSE_VALUE,
cons(fixnum_value(saved_errno), make_pair(make_fixnum(saved_errno),
NIL))); NIL)));
} }
@ -122,8 +122,8 @@ static void bi_posix_dup2(interp_state_t *state)
release_assert(is_valid_fixnum(saved_errno)); release_assert(is_valid_fixnum(saved_errno));
interp_return_values(state, interp_return_values(state,
cons((newfd >= 0) ? fixnum_value(newfd) : FALSE_VALUE, make_pair((newfd >= 0) ? make_fixnum(newfd) : FALSE_VALUE,
cons(fixnum_value(saved_errno), make_pair(make_fixnum(saved_errno),
NIL))); NIL)));
} }
@ -147,8 +147,8 @@ static void bi_posix_read(interp_state_t *state)
release_assert(is_valid_fixnum(saved_errno)); release_assert(is_valid_fixnum(saved_errno));
interp_return_values(state, interp_return_values(state,
cons((result >= 0) ? fixnum_value(result) : FALSE_VALUE, make_pair((result >= 0) ? make_fixnum(result) : FALSE_VALUE,
cons(fixnum_value(saved_errno), make_pair(make_fixnum(saved_errno),
NIL))); NIL)));
} }
@ -182,8 +182,8 @@ static void bi_posix_write(interp_state_t *state)
release_assert(is_valid_fixnum(saved_errno)); release_assert(is_valid_fixnum(saved_errno));
interp_return_values(state, interp_return_values(state,
cons((result >= 0) ? fixnum_value(result) : FALSE_VALUE, make_pair((result >= 0) ? make_fixnum(result) : FALSE_VALUE,
cons(fixnum_value(saved_errno), make_pair(make_fixnum(saved_errno),
NIL))); NIL)));
} }
@ -205,15 +205,15 @@ static void bi_posix_lseek(interp_state_t *state)
if (result == (off_t)(-1)) 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 else
{ {
release_assert((result >= 0) && (result <= FIXNUM_MAX)); release_assert((result >= 0) && (result <= FIXNUM_MAX));
interp_return_values(state, interp_return_values(state,
cons(fixnum_value(result), make_pair(make_fixnum(result),
cons(fixnum_value(saved_errno), make_pair(make_fixnum(saved_errno),
NIL))); NIL)));
} }
} }
@ -231,8 +231,8 @@ static void bi_posix_close(interp_state_t *state)
saved_errno = errno; saved_errno = errno;
interp_return_values(state, interp_return_values(state,
cons(boolean_value(!result), make_pair(make_boolean(!result),
cons(fixnum_value(saved_errno), make_pair(make_fixnum(saved_errno),
NIL))); NIL)));
} }
@ -251,8 +251,8 @@ static void bi_posix_chdir(interp_state_t *state)
free(pathname); free(pathname);
interp_return_values(state, interp_return_values(state,
cons(boolean_value(!result), make_pair(make_boolean(!result),
cons(fixnum_value(saved_errno), make_pair(make_fixnum(saved_errno),
NIL))); NIL)));
} }
@ -275,8 +275,8 @@ static void bi_posix_getcwd(interp_state_t *state)
} }
interp_return_values(state, interp_return_values(state,
cons(result_value, make_pair(result_value,
cons(fixnum_value(saved_errno), make_pair(make_fixnum(saved_errno),
NIL))); NIL)));
} }