switch to Dial module

1 files changed, 6 insertions, 2 deletions

diff --git a/appl/cmd/ip/virgild.b b/appl/cmd/ip/virgild.b
index 5e44476e..79c3b24b 100644
--- a/appl/cmd/ip/virgild.b
+++ b/appl/cmd/ip/virgild.b
@@ -5,6 +5,9 @@ sys: Sys;
 
 include "draw.m";
 
+include "dial.m";
+dial: Dial;
+
 include "ip.m";
 
 Virgild: module
@@ -19,6 +22,7 @@ Udphdrsize: con IP->Udphdrlen;
 init(nil: ref Draw->Context, nil: list of string)
 {
 	sys = load Sys Sys->PATH;
+	dial = load Dial Dial->PATH;
 
 	stderr = sys->fildes(2);
 
@@ -66,8 +70,8 @@ init(nil: ref Draw->Context, nil: list of string)
 
 openlisten(): ref Sys->FD
 {
-	(ok, c) := sys->announce("udp!*!virgil");
-	if(ok < 0){
+	c := dial->announce("udp!*!virgil");
+	if(c == nil){
 		sys->fprint(stderr, "virgild: can't open port: %r\n");
 		return nil;
 	}