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

tools.deploy.test: cut Windows some slack

db4
Slava Pestov 2009-09-12 13:24:45 -05:00
parent 78e5dfcc8b
commit 7ae147c3bf
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/tools/deploy/test/test.factor Normal file → Executable file
View File

@ -12,7 +12,11 @@ IN: tools.deploy.test
: small-enough? ( n -- ? ) : small-enough? ( n -- ? )
[ "test.image" temp-file file-info size>> ] [ "test.image" temp-file file-info size>> ]
[ cell 4 / * cpu ppc? [ 100000 + ] when ] bi* [
cell 4 / *
cpu ppc? [ 100000 + ] when
os windows? [ 150000 + ] when
] bi*
<= ; <= ;
: run-temp-image ( -- ) : run-temp-image ( -- )