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

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

diff --git a/extra/gemini/server/server.factor b/extra/gemini/server/server.factor
index 318183b1a77b1078cbc8760632a2c59f571324bf..977c3b9e9a617d156fed6f74bef618eb6797627c 100644 (file)
--- a/extra/gemini/server/server.factor
+++ b/extra/gemini/server/server.factor
@@ -73,11 +73,11 @@ TUPLE: gemini-server < threaded-server
     ] with-directory-entries ;
 
 : send-directory ( server path -- )
-    dup ".geminimap" append-path dup exists? [
+    dup ".geminimap" append-path dup file-exists? [
         send-file 2drop
     ] [
         drop dup ".geminihead" append-path
-        dup exists? [ send-file ] [ drop ] if
+        dup file-exists? [ send-file ] [ drop ] if
         list-directory
     ] if ;