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

View File

@ -42,10 +42,10 @@ ERROR: no-such-responder responder ;
] when ;
: 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 )
[ first2 [ resolve-word-path % ] dip "/" % % ] "" make ;
first2 [ resolve-word-path ] dip append-path ;
GENERIC: modify-query ( query responder -- query' )