Mason requires a hostname now (things break if this is an empty string)

diff --git a/extra/mason/common/common.factor b/extra/mason/common/common.factor
index cac4180abd53c74a44a3e904c9d13980497f531d..912cd48c79387c945dbe03b32df5c51f65ed2bc9 100644 (file)
--- a/extra/mason/common/common.factor
+++ b/extra/mason/common/common.factor
@@ -8,8 +8,10 @@ calendar.format arrays mason.config locals debugger fry
 continuations strings io.sockets ;
 IN: mason.common
 
+ERROR: no-host-name ;
+
 : short-host-name ( -- string )
-    host-name "." split1 drop ;
+    host-name "." split1 drop [ no-host-name ] unless* ;
 
 SYMBOL: current-git-id