suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixing bad change earlier

Browse Source 
svn: r16299
This commit is contained in:
Jay McCarthy 2009-10-12 19:20:45 +00:00
parent 4773d2cefd
commit 2510c30556
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/web-server/scribblings/tutorial/continue.scrbl
View File

@ -1,4 +1,4 @@
#lang scribble/doc 6#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)

2
collects/web-server/scribblings/tutorial/examples/dummy-3.ss
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:fail? void]) (with-handlers ([exn void])
(sqlite:exec/ignore db (sqlite:exec/ignore db
(string-append (string-append
"CREATE TABLE posts " "CREATE TABLE posts "

2
collects/web-server/scribblings/tutorial/examples/model-2.ss
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:fail? 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))

2
collects/web-server/scribblings/tutorial/examples/model-3.ss
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:fail? void]) (with-handlers ([exn void])
(sqlite:exec/ignore db (sqlite:exec/ignore db
(string-append (string-append
"CREATE TABLE posts " "CREATE TABLE posts "