Fixing everything for mandatory stack effects

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

diff --git a/extra/logging/server/server.factor b/extra/logging/server/server.factor
index 2a4e34e01599c3d03e6efc71ed528b35247322fa..f4ad8144bed9f9dbd80989ac63cf6fc297ce363c 100755 (executable)
--- a/extra/logging/server/server.factor
+++ b/extra/logging/server/server.factor
@@ -67,7 +67,7 @@ SYMBOL: log-files
 : ?delete-file ( path -- )\r
     dup exists? [ delete-file ] [ drop ] if ;\r
 \r
-: delete-oldest keep-logs log# ?delete-file ;\r
+: delete-oldest ( service -- ) keep-logs log# ?delete-file ;\r
 \r
 : ?move-file ( old new -- )\r
     over exists? [ move-file ] [ 2drop ] if ;\r