tools.scaffold: refactor to get a home-path word to use in editors

diff --git a/basis/tools/scaffold/scaffold.factor b/basis/tools/scaffold/scaffold.factor
index bd0159118c5bc4cc67d842b0d8c6462c01921ca3..d1067f8df4cdec61714a36b04f20a505d0f9d155 100644 (file)
--- a/basis/tools/scaffold/scaffold.factor
+++ b/basis/tools/scaffold/scaffold.factor
@@ -373,12 +373,17 @@ ${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 ;
+    [ "Click to edit: " write ?<pathname> . ] bi ;
+
+: home-path ( path -- pathname ) home prepend-path ?<pathname> ;
 
 : scaffold-rc ( path -- )
-    home prepend-path scaffold-file ;
+    home-path scaffold-file ;
 
 : scaffold-factor-boot-rc ( -- )
     ".factor-boot-rc" scaffold-rc ;