From bfb9488fd8ac5135b04d5f4d6039e9c853de6698 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Tue, 21 Jun 2011 12:20:11 +0200
Subject: Use a here-doc for the example template.

---
 json-template.rkt | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/json-template.rkt b/json-template.rkt
index b32b4ab..20eb2c3 100755
--- a/json-template.rkt
+++ b/json-template.rkt
@@ -353,7 +353,7 @@
 
 ;;#;
 (let ([template (with-input-from-string
-                    "
+                 #<<EOF
 <h1>{title|html}</h1>
 {.section people}
 <ul>
@@ -363,7 +363,8 @@
 </ul>
 {.or}
 <p>No one's registered.</p>
-{.end}"
+{.end}
+EOF
                   (λ () (read-template)))])
   (template '((title . "<Registered People>")
               (people .
-- 
cgit v1.2.3