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))))]