From 9276c26f4c3fe2ace111393282ad7b885e065181 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 26 Feb 2018 17:29:10 -0800
Subject: [PATCH] help.pdf: use tilde paths.

---
 extra/help/pdf/pdf.factor | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/extra/help/pdf/pdf.factor b/extra/help/pdf/pdf.factor
index 04ced9a67b..9c2ad031c6 100644
--- a/extra/help/pdf/pdf.factor
+++ b/extra/help/pdf/pdf.factor
@@ -29,7 +29,7 @@ IN: help.pdf
     [ topic>pdf ] map <pb> 1array join ;
 
 : write-pdf ( pdf name -- )
-    [ pdf>string ] dip home prepend-path utf8 set-file-contents ;
+    [ pdf>string ] dip utf8 set-file-contents ;
 
 PRIVATE>
 
@@ -41,19 +41,19 @@ PRIVATE>
     ] [ write-pdf ] bi* ;
 
 : cookbook-pdf ( -- )
-    "cookbook" "cookbook.pdf" article-pdf ;
+    "cookbook" "~/cookbook.pdf" article-pdf ;
 
 : first-program-pdf ( -- )
-    "first-program" "first-program.pdf" article-pdf ;
+    "first-program" "~/first-program.pdf" article-pdf ;
 
 : handbook-pdf ( -- )
-    "handbook-language-reference" "handbook.pdf" article-pdf ;
+    "handbook-language-reference" "~/handbook.pdf" article-pdf ;
 
 : system-pdf ( -- )
-    "handbook-system-reference" "system.pdf" article-pdf ;
+    "handbook-system-reference" "~/system.pdf" article-pdf ;
 
 : tools-pdf ( -- )
-    "handbook-tools-reference" "tools" article-pdf ;
+    "handbook-tools-reference" "~/tools.pdf" article-pdf ;
 
 : index-pdf ( -- )
     {
@@ -62,13 +62,13 @@ PRIVATE>
         "primitive-index"
         "error-index"
         "class-index"
-    } topics>pdf "index.pdf" write-pdf ;
+    } topics>pdf "~/index.pdf" write-pdf ;
 
 : furnace-pdf ( -- )
-    "furnace" "furnace.pdf" article-pdf ;
+    "furnace" "~/furnace.pdf" article-pdf ;
 
 : alien-pdf ( -- )
-    "alien" "alien.pdf" article-pdf ;
+    "alien" "~/alien.pdf" article-pdf ;
 
 : io-pdf ( -- )
-    "io" "io.pdf" article-pdf ;
+    "io" "~/io.pdf" article-pdf ;