io.directories: Add with-resource-directory word and use it.

[factor.git] / extra / webapps / calculator / calculator.factor

diff --git a/extra/webapps/calculator/calculator.factor b/extra/webapps/calculator/calculator.factor
index 95f48109b1210489f181e02c0de503917887908a..b1ffb0bf9016a361109168d5c2b459cb8290ec63 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 ;
+math kernel io.directories ;
 IN: webapps.calculator
 
 TUPLE: calculator < dispatcher ;
@@ -36,9 +36,11 @@ USING: db.sqlite furnace.alloy namespaces http.server ;
 : calculator-db ( -- db ) "calculator.db" <sqlite-db> ;
 
 : run-calculator ( -- )
-    <calculator>
-        calculator-db <alloy>
-        main-responder set-global
-    8080 httpd drop ;
+    [
+        <calculator>
+            calculator-db <alloy>
+            main-responder set-global
+        8080 httpd drop
+    ] with-resource-directory ;
 
 MAIN: run-calculator