Fixed several typos (use of 'exn' instead of 'exn?' for with-handlers; a 6 preceding '#lang'
svn: r16302
This commit is contained in:
parent
6a9deb3a85
commit
876f693669
|
@ -1,4 +1,4 @@
|
|||
6#lang scribble/doc
|
||||
#lang scribble/doc
|
||||
@(require scribble/manual
|
||||
(for-label scheme)
|
||||
(for-label web-server/servlet)
|
||||
|
|
|
@ -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 "
|
||||
|
|
|
@ -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))
|
||||
|
|
|
@ -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 "
|
||||
|
|
Loading…
Reference in New Issue
Block a user