From 500ee302662b1ea3a4d0ce6e0fa1358c5b619f4d Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 28 Oct 2008 16:20:22 -0700
Subject: [PATCH] Add a main word to webapps.ip

---
 extra/webapps/ip/ip.factor | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/extra/webapps/ip/ip.factor b/extra/webapps/ip/ip.factor
index 7124d4a5c4..4e22de60bc 100644
--- a/extra/webapps/ip/ip.factor
+++ b/extra/webapps/ip/ip.factor
@@ -1,7 +1,8 @@
 ! Copyright (C) 2008 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors furnace.actions http.server.dispatchers
-html.forms io.servers.connection namespaces prettyprint ;
+USING: accessors furnace.actions http.server
+http.server.dispatchers html.forms io.servers.connection
+namespaces prettyprint ;
 IN: webapps.ip
 
 TUPLE: ip-app < dispatcher ;
@@ -14,3 +15,9 @@ TUPLE: ip-app < dispatcher ;
 : <ip-app> ( -- dispatcher )
     ip-app new-dispatcher
         <display-ip-action> "" add-responder ;
+
+: run-ip-app ( -- )
+    <ip-app> main-responder set-global
+    8080 httpd ;
+
+MAIN: run-ip-app