-! copyright (c) 2007, 2010 slava pestov.
+! 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 splitting ;
+math math.parser namespaces sequences ;
 IN: system
 
 PRIMITIVE: (exit) ( n -- * )

        "Factor " % vm-version %
        " " % cpu cpu>string %
        " (" % build # ", " %
        split-vm-git-label [ % "-" % ] [ 10 short head % ] bi* ", " %
        vm-compile-time % ")\n[" %
        vm-compiler % "] on " % os os>string %
    ] "" make ;


: vm-git-label ( -- string ) \ vm-git-label get-global ;

: vm-git-ref ( -- string )
    vm-git-label CHAR: - over last-index head ;

: vm-git-id ( -- string )
    vm-git-label CHAR: - over last-index 1 + tail ;

: vm-compiler ( -- string ) \ vm-compiler get-global ;

