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

Fix compile errors

db4
slava 2008-07-03 18:39:56 -05:00
parent ab881cbd7a
commit dc2c0876b6
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
vm/os-unix.h
View File

@ -6,6 +6,7 @@
#include <sys/time.h> #include <sys/time.h>
#include <dlfcn.h> #include <dlfcn.h>
#include <signal.h> #include <signal.h>
#include <pthread.h>
typedef char F_CHAR; typedef char F_CHAR;
typedef char F_SYMBOL; typedef char F_SYMBOL;

4
vm/types.c
View File

@ -12,7 +12,7 @@ bool to_boolean(CELL value)
return value != F; return value != F;
} }
CELL clone(CELL object) CELL clone_object(CELL object)
{ {
CELL size = object_size(object); CELL size = object_size(object);
if(size == 0) if(size == 0)
@ -31,7 +31,7 @@ CELL clone(CELL object)
DEFINE_PRIMITIVE(clone) DEFINE_PRIMITIVE(clone)
{ {
drepl(clone(dpeek())); drepl(clone_object(dpeek()));
} }
F_WORD *allot_word(CELL vocab, CELL name) F_WORD *allot_word(CELL vocab, CELL name)