tools.scaffold: using io.pathnames words now

diff --git a/basis/tools/scaffold/scaffold.factor b/basis/tools/scaffold/scaffold.factor
index d1067f8df4cdec61714a36b04f20a505d0f9d155..46e0b7b66c313ad25bd48e16450a78eb3207f609 100644 (file)
--- a/basis/tools/scaffold/scaffold.factor
+++ b/basis/tools/scaffold/scaffold.factor
@@ -373,17 +373,12 @@ ${example-indent}}
 : scaffold-examples ( word -- )
     2 swap scaffold-n-examples ;
 
-: ?<pathname> ( obj -- pathname )
-    dup pathname? [ <pathname> ] unless ;
-
 : scaffold-file ( path -- )
     [ touch-file ]
-    [ "Click to edit: " write ?<pathname> . ] bi ;
-
-: home-path ( path -- pathname ) home prepend-path ?<pathname> ;
+    [ "Click to edit: " write >pathname . ] bi ;
 
 : scaffold-rc ( path -- )
-    home-path scaffold-file ;
+    home-path >pathname scaffold-file ;
 
 : scaffold-factor-boot-rc ( -- )
     ".factor-boot-rc" scaffold-rc ;