:: answer-from-cache ( MSG -- msg/f ) [let | QUERY [ MSG message-query ] | [let | NX [ QUERY name>> non-existent-name? ] RRS [ QUERY query->rrs ] | { { [ NX ] [ MSG NAME-ERROR >>rcode ] } { [ RRS ] [ MSG RRS >>answer-section ] } { [ t ] [ f ] } } cond ] ] ;