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

Fix vocab: and word name stripping in deployed binaries

db4
Slava Pestov 2009-04-03 10:16:56 -05:00
parent f42c23de9d
commit 535850f3ea
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/tools/deploy/shaker/shaker.factor
View File

@ -276,7 +276,6 @@ IN: tools.deploy.shaker
lexer-factory lexer-factory
print-use-hook print-use-hook
root-cache root-cache
vocab-roots
vocabs:dictionary vocabs:dictionary
vocabs:load-vocab-hook vocabs:load-vocab-hook
word word

7
vm/factor.c
View File

@ -132,9 +132,7 @@ void init_factor(F_PARAMETERS *p)
userenv[CPU_ENV] = tag_object(from_char_string(FACTOR_CPU_STRING)); userenv[CPU_ENV] = tag_object(from_char_string(FACTOR_CPU_STRING));
userenv[OS_ENV] = tag_object(from_char_string(FACTOR_OS_STRING)); userenv[OS_ENV] = tag_object(from_char_string(FACTOR_OS_STRING));
userenv[CELL_SIZE_ENV] = tag_fixnum(sizeof(CELL)); userenv[CELL_SIZE_ENV] = tag_fixnum(sizeof(CELL));
userenv[STACK_TRACES_ENV] = tag_boolean(p->stack_traces); userenv[EXECUTABLE_ENV] = (p->executable_path ? tag_object(from_native_string(p->executable_path)) : F);
userenv[EXECUTABLE_ENV] = (p->executable_path ?
tag_object(from_native_string(p->executable_path)) : F);
userenv[ARGS_ENV] = F; userenv[ARGS_ENV] = F;
userenv[EMBEDDED_ENV] = F; userenv[EMBEDDED_ENV] = F;
@ -142,7 +140,10 @@ void init_factor(F_PARAMETERS *p)
gc_off = false; gc_off = false;
if(!stage2) if(!stage2)
{
userenv[STACK_TRACES_ENV] = tag_boolean(p->stack_traces);
do_stage1_init(); do_stage1_init();
}
} }
/* May allocate memory */ /* May allocate memory */