From 876f693669229e2dfa5634496350d7ddcbfd8b7d Mon Sep 17 00:00:00 2001
From: Carl Eastlund <cce@racket-lang.org>
Date: Tue, 13 Oct 2009 04:47:38 +0000
Subject: [PATCH] Fixed several typos (use of 'exn' instead of 'exn?' for
 with-handlers; a 6 preceding '#lang'

svn: r16302
---
 collects/web-server/scribblings/tutorial/continue.scrbl      | 2 +-
 collects/web-server/scribblings/tutorial/examples/dummy-3.ss | 2 +-
 collects/web-server/scribblings/tutorial/examples/model-2.ss | 2 +-
 collects/web-server/scribblings/tutorial/examples/model-3.ss | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/collects/web-server/scribblings/tutorial/continue.scrbl b/collects/web-server/scribblings/tutorial/continue.scrbl
index 99901a65c3..b366eb8322 100644
--- a/collects/web-server/scribblings/tutorial/continue.scrbl
+++ b/collects/web-server/scribblings/tutorial/continue.scrbl
@@ -1,4 +1,4 @@
-6#lang scribble/doc
+#lang scribble/doc
 @(require scribble/manual
           (for-label scheme)
           (for-label web-server/servlet)
diff --git a/collects/web-server/scribblings/tutorial/examples/dummy-3.ss b/collects/web-server/scribblings/tutorial/examples/dummy-3.ss
index f007d226c0..1b29cb10e1 100644
--- a/collects/web-server/scribblings/tutorial/examples/dummy-3.ss
+++ b/collects/web-server/scribblings/tutorial/examples/dummy-3.ss
@@ -14,7 +14,7 @@
 (define (initialize-blog! home)
   (define db (sqlite:open home))
   (define the-blog (make-blog db))
-  (with-handlers ([exn void])
+  (with-handlers ([exn? void])
     (sqlite:exec/ignore db
                         (string-append
                          "CREATE TABLE posts "
diff --git a/collects/web-server/scribblings/tutorial/examples/model-2.ss b/collects/web-server/scribblings/tutorial/examples/model-2.ss
index f44b30802a..7b03a855e2 100644
--- a/collects/web-server/scribblings/tutorial/examples/model-2.ss
+++ b/collects/web-server/scribblings/tutorial/examples/model-2.ss
@@ -22,7 +22,7 @@
                               "This is another post"
                               (list)))))
           (define the-blog
-            (with-handlers ([exn log-missing-exn-handler])
+            (with-handlers ([exn? log-missing-exn-handler])
               (with-input-from-file home read)))]
     (set-blog-home! the-blog (path->string home))
     the-blog))
diff --git a/collects/web-server/scribblings/tutorial/examples/model-3.ss b/collects/web-server/scribblings/tutorial/examples/model-3.ss
index f9dbfd0c93..3e6a28ce56 100644
--- a/collects/web-server/scribblings/tutorial/examples/model-3.ss
+++ b/collects/web-server/scribblings/tutorial/examples/model-3.ss
@@ -14,7 +14,7 @@
 (define (initialize-blog! home)
   (define db (sqlite:open home))
   (define the-blog (make-blog db))
-  (with-handlers ([exn void])
+  (with-handlers ([exn? void])
     (sqlite:exec/ignore db
                         (string-append
                          "CREATE TABLE posts "