webapps.calculator: Utility word to run the calculator on other ports.

diff --git a/extra/webapps/calculator/calculator.factor b/extra/webapps/calculator/calculator.factor
index b1ffb0bf9016a361109168d5c2b459cb8290ec63..cdfd6b988d71d095f3062ccf39616f7abd27f494 100644 (file)
--- 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