fix sdl console

diff --git a/library/ui/console.factor b/library/ui/console.factor
index 8c672a76254d50c057a63a1d1d518a3ce52b80c8..e27a85a356e728d69d16ba265f13ef716bfa5259 100644 (file)
--- a/library/ui/console.factor
+++ b/library/ui/console.factor
@@ -64,6 +64,7 @@ USE: line-editor
 USE: hashtables
 USE: lists
 USE: sdl-ttf
+USE: prettyprint
 
 #! A namespace holding console state.
 SYMBOL: console
@@ -121,11 +122,11 @@ SYMBOL: redraw-console
 
 : draw-line ( str -- )
     >r x get y get console-font get r>
-    foreground make-color draw-string
+    foreground 3unlist make-color draw-string
     x [ + ] change ;
 
 : clear-display ( -- )
-    surface get 0 0 width get height get background 3list rgb boxColor ;
+    surface get 0 0 width get height get background rgb boxColor ;
 
 : draw-lines ( -- )
     visible-lines available-lines min [
@@ -142,7 +143,7 @@ SYMBOL: redraw-console
     y get
     over 1 +
     y get line-height get +
-    cursor 3list rgb boxColor ;
+    cursor rgb boxColor ;
 
 : draw-current ( -- )
     output-line get sbuf>str draw-line ;
@@ -169,7 +170,7 @@ SYMBOL: redraw-console
     scrollbar-top
     width get
     scrollbar-bottom
-    black 3list rgb boxColor ;
+    black rgb boxColor ;
 
 : draw-console ( -- )
     [