From 0d4afd2f3162ea5c5d85193ded8aa98fb93d16c3 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 5 May 2014 20:44:23 -0400
Subject: [PATCH] webapps.calculator: Utility word to run the calculator on
 other ports.

---
 extra/webapps/calculator/calculator.factor | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/extra/webapps/calculator/calculator.factor b/extra/webapps/calculator/calculator.factor
index b1ffb0bf90..cdfd6b988d 100644
--- a/extra/webapps/calculator/calculator.factor
+++ b/extra/webapps/calculator/calculator.factor
@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: furnace furnace.actions furnace.redirection
 http.server.dispatchers html.forms validators urls accessors
-math kernel io.directories ;
+math kernel io.directories fry ;
 IN: webapps.calculator
 
 TUPLE: calculator < dispatcher ;
@@ -35,12 +35,15 @@ USING: db.sqlite furnace.alloy namespaces http.server ;
 
 : calculator-db ( -- db ) "calculator.db" <sqlite-db> ;
 
-: run-calculator ( -- )
-    [
+: run-calculator ( port -- )
+    '[
         <calculator>
             calculator-db <alloy>
             main-responder set-global
-        8080 httpd drop
+        _ httpd drop
     ] with-resource-directory ;
 
-MAIN: run-calculator
+: run-calculator-main ( -- )
+    8080 run-calculator ;
+
+MAIN: run-calculator-main
-- 
2.34.1