From 7b46b0e39a7e0edfeb8f65613ea32d86ecc32b2b Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 4 Aug 2015 20:37:29 -0700 Subject: [PATCH] prettyprint: use color constants for -> word-prop. --- basis/prettyprint/prettyprint.factor | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/basis/prettyprint/prettyprint.factor b/basis/prettyprint/prettyprint.factor index fe8f4b2b37..7128def247 100644 --- 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 -- )