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

furnace.utilities: refactor to not use make

db4
Björn Lindqvist 2014-11-03 22:05:17 +01:00 committed by John Benediktsson
parent b29aa88f3c
commit e206a5e453
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/furnace/utilities/utilities.factor
View File

@ -42,10 +42,10 @@ ERROR: no-such-responder responder ;
] when ; ] when ;
: resolve-word-path ( word -- path/f ) : resolve-word-path ( word -- path/f )
where [ first parent-directory but-last ] [ f ] if* ; where [ first parent-directory ] [ f ] if* ;
: resolve-template-path ( pair -- path ) : resolve-template-path ( pair -- path )
[ first2 [ resolve-word-path % ] dip "/" % % ] "" make ; first2 [ resolve-word-path ] dip append-path ;
GENERIC: modify-query ( query responder -- query' ) GENERIC: modify-query ( query responder -- query' )