From 67811d35e09a6a638c6a8e92b6824beb5a631838 Mon Sep 17 00:00:00 2001 From: Wojtek Kosior Date: Fri, 26 Jan 2024 11:36:21 +0100 Subject: Rename `normalized-path-string` nested function. This is to decrease the chance of confusion with new, unrelated `normalize-path`. --- src/guile/cantius.scm | 4 ++-- 1 file 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) -- cgit v1.2.3