From e8866b4020396e543201f672237c2073e3e5e4a5 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Fri, 5 Jun 2009 17:55:07 +0000
Subject: [PATCH] Moving database from home to cwd

svn: r15096
---
 collects/web-server/scribblings/tutorial/continue.scrbl         | 2 +-
 collects/web-server/scribblings/tutorial/examples/dummy-10.ss   | 2 +-
 .../web-server/scribblings/tutorial/examples/iteration-10.ss    | 2 +-
 .../web-server/scribblings/tutorial/examples/iteration-9.ss     | 2 +-
 .../web-server/scribblings/tutorial/examples/iteration-9s.ss    | 2 +-
 5 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/collects/web-server/scribblings/tutorial/continue.scrbl b/collects/web-server/scribblings/tutorial/continue.scrbl
index 1c6cbba862..fa0198f82e 100644
--- a/collects/web-server/scribblings/tutorial/continue.scrbl
+++ b/collects/web-server/scribblings/tutorial/continue.scrbl
@@ -918,7 +918,7 @@ First, change @scheme[start] to call @scheme[initialize-blog!] with a path in ou
  (define (start request)  
    (render-blog-page 
     (initialize-blog! 
-     (build-path (find-system-path 'home-dir)
+     (build-path (current-directory)
                  "the-blog-data.db"))
     request))
 ]
diff --git a/collects/web-server/scribblings/tutorial/examples/dummy-10.ss b/collects/web-server/scribblings/tutorial/examples/dummy-10.ss
index 81dc8ac98b..250971dc06 100644
--- a/collects/web-server/scribblings/tutorial/examples/dummy-10.ss
+++ b/collects/web-server/scribblings/tutorial/examples/dummy-10.ss
@@ -8,7 +8,7 @@
 (define (start request)  
   (render-blog-page 
    (initialize-blog! 
-    (build-path (find-system-path 'home-dir)
+    (build-path (current-directory)
                 "the-blog-data.sqlite"))
    request))
 
diff --git a/collects/web-server/scribblings/tutorial/examples/iteration-10.ss b/collects/web-server/scribblings/tutorial/examples/iteration-10.ss
index 13f990dc18..dbc79f297b 100644
--- a/collects/web-server/scribblings/tutorial/examples/iteration-10.ss
+++ b/collects/web-server/scribblings/tutorial/examples/iteration-10.ss
@@ -8,7 +8,7 @@
 (define (start request)  
   (render-blog-page 
    (initialize-blog! 
-    (build-path (find-system-path 'home-dir)
+    (build-path (current-directory)
                 "the-blog-data.sqlite"))
    request))
 
diff --git a/collects/web-server/scribblings/tutorial/examples/iteration-9.ss b/collects/web-server/scribblings/tutorial/examples/iteration-9.ss
index 5cf952f636..e0a5498266 100644
--- a/collects/web-server/scribblings/tutorial/examples/iteration-9.ss
+++ b/collects/web-server/scribblings/tutorial/examples/iteration-9.ss
@@ -8,7 +8,7 @@
 (define (start request)  
   (render-blog-page 
    (initialize-blog! 
-    (build-path (find-system-path 'home-dir)
+    (build-path (current-directory)
                 "the-blog-data.db"))
    request))
 
diff --git a/collects/web-server/scribblings/tutorial/examples/iteration-9s.ss b/collects/web-server/scribblings/tutorial/examples/iteration-9s.ss
index 8da2e2cc83..f2e89f87a6 100644
--- a/collects/web-server/scribblings/tutorial/examples/iteration-9s.ss
+++ b/collects/web-server/scribblings/tutorial/examples/iteration-9s.ss
@@ -8,7 +8,7 @@
 (define (start request)  
   (render-blog-page 
    (initialize-blog! 
-    (build-path (find-system-path 'home-dir)
+    (build-path (current-directory)
                 "the-blog-data.db"))
    request))