call canonicalize-path when determining if we can serve a path

db4
Doug Coleman 2009-02-18 15:49:18 -06:00
parent 30e639ae39
commit 1ed6c013a2
1 changed files with 1 additions and 1 deletions

View File

@ -58,7 +58,7 @@ C: <ftp-disconnect> ftp-disconnect
send-response ;
: serving? ( path -- ? )
normalize-path server get serving-directory>> head? ;
canonicalize-path server get serving-directory>> head? ;
: can-serve-directory? ( path -- ? )
{ [ exists? ] [ file-info directory? ] [ serving? ] } 1&& ;