more playing with guile

1 files changed, 6 insertions, 2 deletions

diff --git a/rnd/guile/play.scm b/rnd/guile/play.scm
index 92d5538..14b2b33 100644
--- a/rnd/guile/play.scm
+++ b/rnd/guile/play.scm
@@ -9,10 +9,14 @@
   (split-and-decode-uri-path (uri-path (request-uri request))))
 
 (define (hello-handler request body)
-  (if (equal? (request-path-components request)
+  (cond ((equal? (request-path-components request)
               '("banana"))
       (values '((content-type . (text/plain)))
-              "banana kiwi apple pineapple watermelon grapefruit")
+              "banana kiwi apple pineapple watermelon grapefruit"))
+        ((equal? (request-path-components request)
+                 '("corn"))
+         (values '((content-type . (text/plain)))
+                 "corn oats millit wheat amaranth quinoa"))
       (not-found request)))
 
 (define (not-found request)