From 969171012ced058fd3fdfb45b38030f68bac6c21 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Sat, 18 Oct 2008 12:55:36 -0500
Subject: [PATCH] dns.util: add 'forever'

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

diff --git a/extra/dns/util/util.factor b/extra/dns/util/util.factor
index 96cf6c0a1e..9ae7389940 100644
--- a/extra/dns/util/util.factor
+++ b/extra/dns/util/util.factor
@@ -28,3 +28,6 @@ TUPLE: packet data addr socket ;
 
 : respond ( packet -- ) [ data>> ] [ addr>> ] [ socket>> ] tri send ;
 
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: forever ( quot -- ) [ call ] [ forever ] bi ;         inline recursive
\ No newline at end of file