Moving database from home to cwd

svn: r15096

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))
 ]

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))
 

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))
 

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))
 

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))