diff options
| -rw-r--r-- | rnd/guile/play.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rnd/guile/play.scm b/rnd/guile/play.scm index 14b2b33..6307c09 100644 --- a/rnd/guile/play.scm +++ b/rnd/guile/play.scm @@ -8,7 +8,7 @@ (define (request-path-components request) (split-and-decode-uri-path (uri-path (request-uri request)))) -(define (hello-handler request body) +(define (routes-handler request body) (cond ((equal? (request-path-components request) '("banana")) (values '((content-type . (text/plain))) @@ -25,4 +25,4 @@ (uri->string (request-uri request))))) -(run-server hello-handler) +(run-server routes-handler) |