Paste: loop (from dns cache)

Author: dharmatech
Mode: factor
Date: Tue, 14 Oct 2008 13:19:02
Plain Text |
: loop ( -- )
  socket receive -> BYTE-ARRAY ADDR-SPEC
    [ BYTE-ARRAY parse-message find-answer message->ba ADDR-SPEC socket send ]
  loop ;

New Annotation

Summary:
Author:
Mode:
Body: