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

db4
John Benediktsson 2015-08-04 20:37:29 -07:00
parent 265f19e952
commit 7b46b0e39a
1 changed files with 6 additions and 8 deletions

View File

@ -1,12 +1,10 @@
! Copyright (C) 2003, 2010 Slava Pestov. ! Copyright (C) 2003, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays accessors assocs classes colors combinators USING: accessors arrays classes colors.constants combinators
continuations grouping io io.streams.string io.styles kernel continuations generic grouping io io.streams.string io.styles
make math math.parser namespaces parser prettyprint.backend kernel make math math.parser namespaces prettyprint.config
prettyprint.config prettyprint.custom prettyprint.sections prettyprint.custom prettyprint.sections sequences strings
quotations sequences sorting strings vocabs vocabs.prettyprint vocabs.prettyprint words ;
words sets generic ;
FROM: namespaces => set ;
IN: prettyprint IN: prettyprint
: with-use ( obj quot -- ) : with-use ( obj quot -- )
@ -59,7 +57,7 @@ IN: prettyprint
SYMBOL: -> 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 "word-style" set-word-prop
: remove-step-into ( word -- ) : remove-step-into ( word -- )