diff options
Diffstat (limited to 'web')
| -rwxr-xr-x | web/webserver.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/web/webserver.scm b/web/webserver.scm index 6be0890..17f5716 100755 --- a/web/webserver.scm +++ b/web/webserver.scm @@ -66,7 +66,7 @@ (list (append extra-headers '((content-type . (text/html)))) (lambda (port) - (sxml->html (view-doc (pk path) (pk page) rec) port)))) + (sxml->html (view-doc path page rec) port)))) (define (render-json json) (list '((content-type . (application/json))) @@ -117,7 +117,7 @@ (request-method request) (uri-path (request-uri request))) (apply values - ((controller (pk request) body) + ((controller request body) (cons (request-method request) (request-path-components request))))) |