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

change temp-file to cache-file where appropriate

db4
Joe Groff 2012-03-31 14:49:43 -07:00 committed by John Benediktsson
parent 480545a683
commit 5948f53725
6 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/help/html/html.factor
View File

@ -127,7 +127,7 @@ M: topic url-of topic>filename ;
] with-scope ;
: generate-help ( -- )
"docs" temp-file
"docs" cache-file
[ make-directories ]
[
[

2
basis/tools/deploy/backend/backend.factor
View File

@ -61,7 +61,7 @@ ERROR: can't-deploy-library-file library ;
] { } make ;
: staging-image-name ( profile -- name )
"-" join "staging." ".image" surround temp-file ;
"-" join "staging." ".image" surround cache-file ;
DEFER: ?make-staging-image

2
extra/bunny/model/model.factor
View File

@ -41,7 +41,7 @@ IN: bunny.model
ascii [ parse-model ] with-file-reader
[ normals ] 2keep 3array ;
: model-path ( -- path ) "bun_zipper.ply" temp-file ;
: model-path ( -- path ) "bun_zipper.ply" cache-file ;
: model-url ( -- url ) "http://duriansoftware.com/joe/media/bun_zipper.ply" ;

2
extra/geo-ip/geo-ip.factor
View File

@ -7,7 +7,7 @@ math.intervals interval-maps memoize csv accessors assocs
strings math splitting grouping arrays combinators.smart ;
IN: geo-ip
: db-path ( -- path ) "IpToCountry.csv" temp-file ;
: db-path ( -- path ) "IpToCountry.csv" cache-file ;
CONSTANT: db-url "http://software77.net/geo-ip/?DL=1"

2
extra/gpu/demos/bunny/bunny.factor
View File

@ -143,7 +143,7 @@ UNIFORM-TUPLE: loading-uniforms
[ length ] bi
] bi* ;
: bunny-model-path ( -- path ) "bun_zipper.ply" temp-file ;
: bunny-model-path ( -- path ) "bun_zipper.ply" cache-file ;
CONSTANT: bunny-model-url "http://duriansoftware.com/joe/media/bun_zipper.ply"

2
extra/site-watcher/db/db.factor
View File

@ -124,7 +124,7 @@ TUPLE: reporting-site site-id email url up? changed? last-up? error last-error ;
f <watching-site> select-tuples
[ site-id>> site new swap >>site-id select-tuple ] map ;
: site-watcher-path ( -- path ) "site-watcher.db" temp-file ; inline
: site-watcher-path ( -- path ) "site-watcher.db" cache-file ; inline
: with-site-watcher-db ( quot -- )
site-watcher-path <sqlite-db> swap with-db ; inline