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

fix compile error

cvs
Slava Pestov 2005-04-26 01:39:34 +00:00
parent 94ddf77dd4
commit d5604720c6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
native/run.c
View File

@ -105,13 +105,13 @@ void primitive_ifte(void)
void primitive_getenv(void)
{
F_FIXNUM e = to_fixnum_fast(dpeek());
F_FIXNUM e = untag_fixnum_fast(dpeek());
drepl(userenv[e]);
}
void primitive_setenv(void)
{
F_FIXNUM e = to_fixnum_fast(dpop());
F_FIXNUM e = untag_fixnum_fast(dpop());
CELL value = dpop();
userenv[e] = value;
}