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

Adjusted indentation.

Browse Source 
svn: r11285
This commit is contained in:
Danny Yoo 2008-08-15 20:04:57 +00:00
parent cd03bb635e
commit 5d9410c058
2 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/web-server/scribblings/tutorial/examples/model-3.ss
View File

@ -71,7 +71,8 @@
(define (post-comments p) (define (post-comments p)
(local [(define (row->comment a-row) (local [(define (row->comment a-row)
(vector-ref a-row 0)) (vector-ref a-row 0))
(define rows (sqlite:select (define rows
(sqlite:select
(blog-db (post-blog p)) (blog-db (post-blog p))
(format "SELECT content FROM comments WHERE pid = '~a'" (format "SELECT content FROM comments WHERE pid = '~a'"
(post-id p))))] (post-id p))))]

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

@ -991,7 +991,7 @@ We can now write the code to initialize a @scheme[blog] structure:
(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 "
"(id INTEGER PRIMARY KEY," "(id INTEGER PRIMARY KEY,"
"title TEXT, body TEXT)")) "title TEXT, body TEXT)"))
(blog-insert-post! (blog-insert-post!