Paste: answer-from-cache (lispy)

Author: dharmatech
Mode: factor
Date: Tue, 14 Oct 2008 13:17:27
Plain Text |
:: 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
     ]
   ] ;

New Annotation

Summary:
Author:
Mode:
Body: