ftp.server: Fix bug where serving directory is always f. Need better tests for this vocab.
parent
88c0028d13
commit
64bb56665b
|
@ -137,7 +137,7 @@ ERROR: type-error type ;
|
||||||
|
|
||||||
: handle-PWD ( obj -- )
|
: handle-PWD ( obj -- )
|
||||||
drop
|
drop
|
||||||
display-directory get "\"" dup surround 257 server-response ;
|
display-directory "\"" dup surround 257 server-response ;
|
||||||
|
|
||||||
: handle-SYST ( obj -- )
|
: handle-SYST ( obj -- )
|
||||||
drop
|
drop
|
||||||
|
|
Loading…
Reference in New Issue