Fixed several typos (use of 'exn' instead of 'exn?' for with-handlers; a 6 preceding '#lang'

svn: r16302
This commit is contained in:
Carl Eastlund 2009-10-13 04:47:38 +00:00
parent 6a9deb3a85
commit 876f693669
4 changed files with 4 additions and 4 deletions

View File

@ -1,4 +1,4 @@
6#lang scribble/doc #lang scribble/doc
@(require scribble/manual @(require scribble/manual
(for-label scheme) (for-label scheme)
(for-label web-server/servlet) (for-label web-server/servlet)

View File

@ -14,7 +14,7 @@
(define (initialize-blog! home) (define (initialize-blog! home)
(define db (sqlite:open home)) (define db (sqlite:open home))
(define the-blog (make-blog db)) (define the-blog (make-blog db))
(with-handlers ([exn void]) (with-handlers ([exn? void])
(sqlite:exec/ignore db (sqlite:exec/ignore db
(string-append (string-append
"CREATE TABLE posts " "CREATE TABLE posts "

View File

@ -22,7 +22,7 @@
"This is another post" "This is another post"
(list))))) (list)))))
(define the-blog (define the-blog
(with-handlers ([exn log-missing-exn-handler]) (with-handlers ([exn? log-missing-exn-handler])
(with-input-from-file home read)))] (with-input-from-file home read)))]
(set-blog-home! the-blog (path->string home)) (set-blog-home! the-blog (path->string home))
the-blog)) the-blog))

View File

@ -14,7 +14,7 @@
(define (initialize-blog! home) (define (initialize-blog! home)
(define db (sqlite:open home)) (define db (sqlite:open home))
(define the-blog (make-blog db)) (define the-blog (make-blog db))
(with-handlers ([exn void]) (with-handlers ([exn? void])
(sqlite:exec/ignore db (sqlite:exec/ignore db
(string-append (string-append
"CREATE TABLE posts " "CREATE TABLE posts "