From: Björn Lindqvist <bjourne@gmail.com>
Date: Mon, 3 Nov 2014 21:05:17 +0000 (+0100)
Subject: furnace.utilities: refactor to not use make
X-Git-Tag: unmaintained~3432
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=e206a5e45334beee64c59970cabb5114c0e8a15d

furnace.utilities: refactor to not use make
---

diff --git a/basis/furnace/utilities/utilities.factor b/basis/furnace/utilities/utilities.factor
index e42213b31e..210f88cacf 100644
--- 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' )