ftp.server: Fix bug where serving directory is always f. Need better tests for this vocab.

2014-04-26 14:52:37 -07:00 · 2014-04-26 14:52:37 -07:00 · 64bb56665b
parent 88c0028d13
commit 64bb56665b
1 changed files with 1 additions and 1 deletions
--- a/basis/ftp/server/server.factor
+++ b/basis/ftp/server/server.factor
@ -137,7 +137,7 @@ ERROR: type-error type ;

 : handle-PWD ( obj -- )
    drop
-    display-directory get "\"" dup surround 257 server-response ;
+    display-directory "\"" dup surround 257 server-response ;

 : handle-SYST ( obj -- )
    drop