From 285c34696f85b8d2840b9399c9ba7801e248a490 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 16 Jun 2008 16:28:49 -0500
Subject: [PATCH] dns: minor addition

---
 extra/dns/dns.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/extra/dns/dns.factor b/extra/dns/dns.factor
index 48380a0d57..214b45ce0c 100644
--- a/extra/dns/dns.factor
+++ b/extra/dns/dns.factor
@@ -424,6 +424,10 @@ SYMBOLS: NO-ERROR FORMAT-ERROR SERVER-FAILURE NAME-ERROR NOT-IMPLEMENTED
   }
     2cleave message boa ;
 
+: ba->message ( ba -- message ) parse-message ;
+
+: with-message-bytes ( ba quot -- ) >r ba->message r> call message->ba ; inline
+
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 : send-receive-udp ( ba server -- ba )