steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

dns.util: add 'forever'

db4
Eduardo Cavazos 2008-10-18 12:55:36 -05:00
parent 17fc0bea22
commit 969171012c
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/dns/util/util.factor
View File

@ -28,3 +28,6 @@ TUPLE: packet data addr socket ;
: respond ( packet -- ) [ data>> ] [ addr>> ] [ socket>> ] tri send ; : respond ( packet -- ) [ data>> ] [ addr>> ] [ socket>> ] tri send ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: forever ( quot -- ) [ call ] [ forever ] bi ; inline recursive