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

tools.deploy.test: give PowerPC an extra 100kb

db4
Slava Pestov 2009-08-27 20:27:35 -05:00
parent ba0f3a9911
commit 0d70d07cf1
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/tools/deploy/test/test.factor
View File

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