From e9dbb7cf2200a013b96cee638012e54ab1e6aff4 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 4 Aug 2015 16:57:19 -0700
Subject: [PATCH] system: Make a shorter banner on startup.

---
 core/system/system.factor | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/core/system/system.factor b/core/system/system.factor
index 8acb34b2f9..5dc6a19da5 100644
--- a/core/system/system.factor
+++ b/core/system/system.factor
@@ -1,7 +1,7 @@
 ! copyright (c) 2007, 2010 slava pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: assocs continuations init io kernel kernel.private make
-math.parser namespaces sequences ;
+math.parser namespaces sequences splitting ;
 IN: system
 
 PRIMITIVE: (exit) ( n -- * )
@@ -24,6 +24,13 @@ UNION: unix macosx linux ;
 
 : vm-git-label ( -- string ) \ vm-git-label get-global ; foldable
 
+: split-vm-git-label ( -- ref git-id )
+    vm-git-label "-" split1-last ; foldable
+
+: vm-git-ref ( -- string ) split-vm-git-label drop ; foldable
+
+: vm-git-id ( -- string ) split-vm-git-label nip ; foldable
+
 : vm-compiler ( -- string ) \ vm-compiler get-global ; foldable
 
 : vm-compile-time ( -- string ) \ vm-compile-time get-global ; foldable
@@ -72,7 +79,8 @@ PRIVATE>
     [
         "Factor " % vm-version %
         " " % cpu cpu>string %
-        " (" % build # ", " % vm-git-label % ", " %
+        " (" % build # ", " %
+        split-vm-git-label [ % "-" % ] [ 10 head % ] bi* ", " %
         vm-compile-time % ")\n[" %
         vm-compiler % "] on " % os os>string %
     ] "" make ;