vocabs.metadata: cleanup a couple uses of metadata paths.

diff --git a/basis/editors/editors.factor b/basis/editors/editors.factor
index 5efafdbb7e4d3e17126ff10b143cd70fca0ebb0a..a34dfbf8bcb135d6842056e77c695e58c4436283 100644 (file)
--- a/basis/editors/editors.factor
+++ b/basis/editors/editors.factor
@@ -116,13 +116,13 @@ M: object edit-tests
 M: word edit-tests vocabulary>> edit-tests ;
 
 : edit-platforms ( vocab -- )
-    dup vocab-platforms-path vocab-append-path 1 edit-location ;
+    public-vocab-name vocab-platforms-path 1 edit-location ;
 
 : edit-authors ( vocab -- )
-    dup vocab-authors-path vocab-append-path 1 edit-location ;
+    public-vocab-name vocab-authors-path 1 edit-location ;
 
 : edit-tags ( vocab -- )
-    dup vocab-tags-path vocab-append-path 1 edit-location ;
+    public-vocab-name vocab-tags-path 1 edit-location ;
 
 : edit-summary ( vocab -- )
-    dup vocab-summary-path vocab-append-path 1 edit-location ;
+    public-vocab-name vocab-summary-path 1 edit-location ;

diff --git a/extra/fuel/fuel.factor b/extra/fuel/fuel.factor
index 585c5f46efad2f82bfde13c0cac925467754e0ce..f32fcc87a13780abd58a283bbc922e7ab660d352 100644 (file)
--- a/extra/fuel/fuel.factor
+++ b/extra/fuel/fuel.factor
@@ -155,32 +155,23 @@ PRIVATE>
 
 : fuel-scaffold-tests ( name devname -- result )
     [ scaffold-name dup require dup scaffold-tests ] with-scope
-    vocab-tests-file absolute-path ;
+    vocab-tests-path absolute-path ;
 
 : fuel-scaffold-authors ( name devname -- result )
     [ scaffold-name dup require dup scaffold-authors ] with-scope
-    [ vocab-authors-path ] keep swap vocab-append-path absolute-path ;
+    vocab-authors-path absolute-path ;
 
 : fuel-scaffold-tags ( name tags -- result )
     [ scaffold-tags ]
-    [
-        drop [ vocab-tags-path ] keep swap
-        vocab-append-path absolute-path
-    ] 2bi ;
+    [ drop vocab-tags-path absolute-path ] 2bi ;
 
 : fuel-scaffold-summary ( name summary -- result )
     [ scaffold-summary ]
-    [
-        drop [ vocab-summary-path ] keep swap
-        vocab-append-path absolute-path
-    ] 2bi ;
+    [ drop vocab-summary-path absolute-path ] 2bi ;
 
 : fuel-scaffold-platforms ( name platforms -- result )
     [ scaffold-platforms ]
-    [
-        drop [ vocab-platforms-path ] keep swap
-        vocab-append-path absolute-path
-    ] 2bi ;
+    [ drop vocab-platforms-path absolute-path ] 2bi ;
 
 : fuel-scaffold-get-root ( name -- result )
     find-vocab-root ;