furnace.utilities: refactor to not use make

diff --git a/basis/furnace/utilities/utilities.factor b/basis/furnace/utilities/utilities.factor
index e42213b31e043a1b6e1da37d353d61cba11443f9..210f88cacfe79d5f2587ddddeffba51639f2fad3 100644 (file)
--- a/basis/furnace/utilities/utilities.factor
+++ b/basis/furnace/utilities/utilities.factor
@@ -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' )