prettyprint: use color constants for -> word-prop.

diff --git a/basis/prettyprint/prettyprint.factor b/basis/prettyprint/prettyprint.factor
index fe8f4b2b37d420609115b08ee0e830aae70ff09a..7128def24797e5bfbd1c61d94edd3d8b7fea4030 100644 (file)
--- a/basis/prettyprint/prettyprint.factor
+++ b/basis/prettyprint/prettyprint.factor
@@ -1,12 +1,10 @@
 ! Copyright (C) 2003, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: arrays accessors assocs classes colors combinators
-continuations grouping io io.streams.string io.styles kernel
-make math math.parser namespaces parser prettyprint.backend
-prettyprint.config prettyprint.custom prettyprint.sections
-quotations sequences sorting strings vocabs vocabs.prettyprint
-words sets generic ;
-FROM: namespaces => set ;
+USING: accessors arrays classes colors.constants combinators
+continuations generic grouping io io.streams.string io.styles
+kernel make math math.parser namespaces prettyprint.config
+prettyprint.custom prettyprint.sections sequences strings
+vocabs.prettyprint words ;
 IN: prettyprint
 
 : with-use ( obj quot -- )
@@ -59,7 +57,7 @@ IN: prettyprint
 SYMBOL: ->
 
 \ ->
-{ { foreground T{ rgba f 1 1 1 1 } } { background T{ rgba f 0 0 0 1 } } }
+{ { foreground COLOR: white } { background COLOR: black } }
 "word-style" set-word-prop
 
 : remove-step-into ( word -- )