steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Runtime cleanup

release
slava 2006-07-24 05:22:11 +00:00
parent 378b157153
commit e3da107934
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
vm/run.c
View File

@ -136,8 +136,7 @@ void primitive_call(void)
void primitive_ifte(void)
{
ds -= CELLS * 3;
CELL cond = get(ds + CELLS);
call(cond == F ? get(ds + CELLS * 3) : get(ds + CELLS * 2));
call(get(ds + CELLS) == F ? get(ds + CELLS * 3) : get(ds + CELLS * 2));
}
void primitive_dispatch(void)
@ -181,7 +180,9 @@ void primitive_os_env(void)
void primitive_eq(void)
{
box_boolean(dpop() == dpop());
CELL lhs = dpop();
CELL rhs = dpeek();
drepl((lhs == rhs) ? T : F);
}
void primitive_millis(void)