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

tools.deploy.shaker: strip out vm, image, current-directory to avoid leaking information from build environment

release
Slava Pestov 2010-02-15 17:54:19 +13:00
parent 62f5a2af1c
commit 4266023639
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,11 +1,11 @@
! Copyright (C) 2007, 2010 Slava Pestov. ! Copyright (C) 2007, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays accessors io.backend io.streams.c init fry USING: arrays accessors io.backend io.pathnames io.streams.c
namespaces math make assocs kernel parser parser.notes lexer init fry namespaces math make assocs kernel parser parser.notes
strings.parser vocabs sequences sequences.deep sequences.private lexer strings.parser vocabs sequences sequences.deep
words memory kernel.private continuations io vocabs.loader sequences.private words memory kernel.private continuations io
system strings sets vectors quotations byte-arrays sorting vocabs.loader system strings sets vectors quotations byte-arrays
compiler.units definitions generic generic.standard sorting compiler.units definitions generic generic.standard
generic.single tools.deploy.config combinators classes generic.single tools.deploy.config combinators classes
classes.builtin slots.private grouping command-line ; classes.builtin slots.private grouping command-line ;
QUALIFIED: bootstrap.stage2 QUALIFIED: bootstrap.stage2
@ -48,7 +48,6 @@ IN: tools.deploy.shaker
] when ] when
strip-dictionary? [ strip-dictionary? [
{ {
! "compiler.units"
"vocabs" "vocabs"
"vocabs.cache" "vocabs.cache"
"source-files.errors" "source-files.errors"
@ -293,6 +292,9 @@ IN: tools.deploy.shaker
input-stream input-stream
output-stream output-stream
error-stream error-stream
vm
image
current-directory
} % } %
"io-thread" "io.thread" lookup , "io-thread" "io.thread" lookup ,