command-line.startup: print more version info.

diff --git a/basis/command-line/startup/startup.factor b/basis/command-line/startup/startup.factor
index 27c7071286b56e2b302c3981c277f86375b242c5..9e385cdd460dbc9ed676b49d8eb1ae2a2e8d423b 100644 (file)
--- a/basis/command-line/startup/startup.factor
+++ b/basis/command-line/startup/startup.factor
@@ -41,12 +41,10 @@ from within Factor for more information.
 
 : version? ( -- ? ) "version" get ;
 
-: version. ( -- ) "Factor " write vm-version print ;
-
 : command-line-startup ( -- )
     (command-line) parse-command-line {
         { [ help? ] [ help. ] }
-        { [ version? ] [ version. ] }
+        { [ version? ] [ version-info print ] }
         [
             load-vocab-roots
             run-user-init