diff options
| -rw-r--r-- | src/guile/cantius.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/guile/cantius.scm b/src/guile/cantius.scm index 247807b..247d593 100644 --- a/src/guile/cantius.scm +++ b/src/guile/cantius.scm @@ -389,12 +389,12 @@ (path (uri:split-and-decode-uri-path path-string)) (($* endpoint-ref-result path-tail endpoint parameters) (query-endset root-endset path (%catchall-ref-result)))) - (define (normalized-path-string) + (define (normalized-uri-path-string) (format #f "/~a" (uri:encode-and-join-uri-path path))) (define (redirect-path) (if (%redirect/normalize-path?) - (normalized-path-string) + (normalized-uri-path-string) (uri:uri-path (request-uri request)))) (define (redirect-query) |