fix name...

* module/web/request.scm (read-request-body/latin-1): Fix name...

diff --git a/module/web/request.scm b/module/web/request.scm
index 9f86638..da91c40 100644 (file)
--- a/module/web/request.scm
+++ b/module/web/request.scm
@@ -192,7 +192,7 @@
 ;; Probably not what you want to use "in production". Relies on one byte
 ;; per char because we are in latin-1 encoding.
 ;;
-(define (read-response-body/latin-1 r)
+(define (read-request-body/latin-1 r)
   (cond 
    ((request-content-length r) =>
     (lambda (nbytes)