Paste: answer-from-cache (lispy)

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