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

Foo

slava 2006-08-15 08:58:18 +00:00
parent f15e657631
commit 53d61c188d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
vm/compiler.c
View File

@ -53,7 +53,7 @@ CELL get_rel_word(F_REL *rel, CELL literal_start)
CELL arg = REL_ARGUMENT(rel); CELL arg = REL_ARGUMENT(rel);
F_WORD *word = untag_word(get_literal(literal_start,arg)); F_WORD *word = untag_word(get_literal(literal_start,arg));
if(word->xt < compiling.base || word->xt >= compiling.limit) if(word->xt < compiling.base || word->xt >= compiling.limit)
fprintf(stderr,"Bad XT %x",tag_word(word)); critical_error("Bad XT",tag_word(word));
return word->xt; return word->xt;
} }