graphical console; start factor with -graphical switch

library/bootstrap/boot-stage2.factor

@@ -136,6 +136,7 @@ USE: namespaces
     "/library/sdl/sdl-keyboard.factor"
     "/library/sdl/sdl-utils.factor"
     "/library/sdl/hsv.factor"
+    "/library/sdl/console.factor"
 
     "/library/bootstrap/image.factor"
 

library/bootstrap/init-stage2.factor

@@ -43,6 +43,7 @@ USE: presentation
 USE: words
 USE: unparser
 USE: kernel-internals
+USE: console
 
 : init-smart-terminal
     "smart-terminal" get [
@@ -56,15 +57,20 @@ USE: kernel-internals
     init-error-handler
     init-random
     default-cli-args
-    parse-command-line
-    init-smart-terminal
-    run-user-init ;
+    parse-command-line ;
 
-: auto-inline-count 3 ;
 [
     warm-boot
     garbage-collection
-    "interactive" get [ print-banner listener ] when
+    init-smart-terminal
+    run-user-init
+    "graphical" get [
+        start-console
+    ] [
+        "interactive" get [
+            print-banner listener
+        ] when
+    ] ifte
     0 exit* 
 ] set-boot
 

library/sdl/console.factor

@@ -11,7 +11,8 @@
 ! Then, start Factor as usual (./f factor.image) and enter this
 ! at the listener:
 !
-! "examples/console.factor" run-file
+! USE: console
+! start-console
 
 IN: console
 USE: generic
@@ -267,5 +268,3 @@ M: alien handle-event ( event -- ? )
             console-quit
         ] bind
     ] callcc0 ;
-
-start-console