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

latest fixes

cvs
Slava Pestov 2005-12-11 23:27:39 +00:00
parent e1e1d8f7f0
commit 3bec501259
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
native/relocate.c
View File

@ -93,7 +93,7 @@ void undefined_symbol(void)
CELL get_rel_symbol(F_REL* rel) CELL get_rel_symbol(F_REL* rel)
{ {
CELL arg = REL_ARGUMENT(rel); CELL arg = REL_ARGUMENT(rel);
F_CONS* cons = untag_cons(compiling.base + arg * sizeof(CELL)); F_CONS* cons = untag_cons(get(compiling.base + arg * sizeof(CELL)));
F_STRING* symbol = untag_string(cons->car); F_STRING* symbol = untag_string(cons->car);
DLL* dll = (cons->cdr == F ? NULL : untag_dll(cons->cdr)); DLL* dll = (cons->cdr == F ? NULL : untag_dll(cons->cdr));
CELL sym; CELL sym;