change ERROR: words from throw-foo back to foo.

[factor.git] / extra / mason / common / common.factor

diff --git a/extra/mason/common/common.factor b/extra/mason/common/common.factor
index 2bfda23a750e87e56e0a2ee4a816f72236225e6b..d01dff72d5222d49f4e13054fe516eb1dd700fff 100644 (file)
--- a/extra/mason/common/common.factor
+++ b/extra/mason/common/common.factor
@@ -13,7 +13,7 @@ IN: mason.common
 ERROR: no-host-name ;
 
 : short-host-name ( -- string )
-    host-name "." split1 drop [ throw-no-host-name ] unless* ;
+    host-name "." split1 drop [ no-host-name ] unless* ;
 
 SYMBOL: current-git-id