Paste: how to write narrow conds?

: 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 ;