wipe: remove the obsolete "findus" subsystem name

diff --git a/extra/wipe/ui/deploy.factor b/extra/wipe/ui/deploy.factor
index 72be6043e279eb0f1834f21d35ec26db2a307883..c609cbb32a11966d67d4be0b5e9af7365c9cda0b 100644 (file)
--- a/extra/wipe/ui/deploy.factor
+++ b/extra/wipe/ui/deploy.factor
@@ -11,6 +11,6 @@ H{
     { deploy-word-props? f }
     { deploy-c-types? f }
     { deploy-help? f }
-    { deploy-name "findus.wipe" }
+    { deploy-name "wipe" }
     { deploy-unicode? f }
 }

diff --git a/extra/wipe/wipe-docs.factor b/extra/wipe/wipe-docs.factor
index 66f5d24d0f0dffa667774a9f24c5c74ddd63707e..bda828137c354a58f8238c18e6770193e69c634d 100644 (file)
--- a/extra/wipe/wipe-docs.factor
+++ b/extra/wipe/wipe-docs.factor
@@ -7,10 +7,10 @@ HELP: overwrite-with-random-bytes
 { $values { "file-name" "a filename string" } }
 { $description "Overwite the " { $snippet "file-name" } " contents with random data. The slack space at the end is not overwritten." } ;
 
-ABOUT: "findus.wipe"
+ABOUT: "wipe"
 
-ARTICLE: "findus.wipe" "findus.wipe"
-"The " { $vocab-link "findus.wipe" } " vocab provides some words for securely erasing (wiping) individual files, entire folders or the free space on a drive:"
+ARTICLE: "wipe" "wipe"
+"The " { $vocab-link "wipe" } " vocab provides some words for securely erasing (wiping) individual files, entire folders or the free space on a drive:"
 { $subsections wipe wipe-all wipe-file wipe-free-space }
 ;