From 972128abf090b265f2576e861187075ddf8399ef Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Mon, 18 Aug 2008 22:11:08 +0000 Subject: [PATCH] Fixing a format bug svn: r11303 --- .../scribblings/tutorial/examples/model-3.ss | 10 +++++++--- .../web-server/scribblings/tutorial/tutorial.scrbl | 5 ++++- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/collects/web-server/scribblings/tutorial/examples/model-3.ss b/collects/web-server/scribblings/tutorial/examples/model-3.ss index 9bccfc0603..4a740fc977 100644 --- a/collects/web-server/scribblings/tutorial/examples/model-3.ss +++ b/collects/web-server/scribblings/tutorial/examples/model-3.ss @@ -35,7 +35,10 @@ ;; Queries for the post ids (define (blog-posts a-blog) (local [(define (row->post a-row) - (make-post a-blog (string->number (vector-ref a-row 0)))) + (make-post + a-blog + (string->number + (vector-ref a-row 0)))) (define rows (sqlite:select (blog-db a-blog) "SELECT id FROM posts"))] @@ -74,8 +77,9 @@ (define rows (sqlite:select (blog-db (post-blog p)) - (format "SELECT content FROM comments WHERE pid = '~a'" - (post-id p))))] + (format + "SELECT content FROM comments WHERE pid = '~a'" + (post-id p))))] (cond [(empty? rows) empty] [else (map row->comment (rest rows))]))) diff --git a/collects/web-server/scribblings/tutorial/tutorial.scrbl b/collects/web-server/scribblings/tutorial/tutorial.scrbl index 38f2ab7104..c06540a11e 100644 --- a/collects/web-server/scribblings/tutorial/tutorial.scrbl +++ b/collects/web-server/scribblings/tutorial/tutorial.scrbl @@ -1062,7 +1062,10 @@ The only function that creates posts is @scheme[blog-posts]: @code:comment{Queries for the post ids} (define (blog-posts a-blog) (local [(define (row->post a-row) - (make-post a-blog (string->number (vector-ref a-row 0)))) + (make-post + a-blog + (string->number + (vector-ref a-row 0)))) (define rows (sqlite:select (blog-db a-blog) "SELECT id FROM posts"))]