io.files: exists? -> file-exists? and rename primitive.

[factor.git] / extra / gopher / server / server.factor

diff --git a/extra/gopher/server/server.factor b/extra/gopher/server/server.factor
index b6f28aeb641339bdbaada0c4a6374c67e9f23222..5eb6b403e003972a215acdb35640c627d705e4b8 100644 (file)
--- a/extra/gopher/server/server.factor
+++ b/extra/gopher/server/server.factor
@@ -83,11 +83,11 @@ TUPLE: gopher-server < threaded-server
     ] with-directory-entries ;
 
 : send-directory ( server path -- )
-    dup ".gophermap" append-path dup exists? [
+    dup ".gophermap" append-path dup file-exists? [
         send-file 2drop
     ] [
         drop dup ".gopherhead" append-path
-        dup exists? [ send-file ] [ drop ] if
+        dup file-exists? [ send-file ] [ drop ] if
         list-directory
     ] if ;