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

2010-01-21 00:42:07 -06:00 · 2010-01-21 00:42:07 -06:00 · eacb1412e2
parent b7b84fc5b7
commit eacb1412e2
1 changed files with 3 additions and 1 deletions
--- 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