From eacb1412e21f1965da54332d27dc279ed538f360 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 21 Jan 2010 00:42:07 -0600 Subject: [PATCH] Mason requires a hostname now (things break if this is an empty string) --- extra/mason/common/common.factor | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/extra/mason/common/common.factor b/extra/mason/common/common.factor index cac4180abd..912cd48c79 100644 --- 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