: dimly-lit-word? ( word -- ? ) { POSTPONE: USING: POSTPONE: USE: POSTPONE: IN: } memq? ; : parsing-or-delim-word? ( word -- ? ) [ parsing-word? ] [ delimiter? ] bi or ; : word-color ( word -- color ) { { [ dup dimly-lit-word? ] [ drop dim-color ] } { [ dup parsing-or-delim-word? ] [ drop alt-color ] } [ drop COLOR: black ] } cond ;