Merge branch 'master' of git://factorcode.org/git/factor

db4
Slava Pestov 2008-07-03 19:10:04 -05:00
commit 3f6b4b759f
2 changed files with 3 additions and 2 deletions

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;

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)