Updating code for make and fry changes

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

diff --git a/extra/webapps/counter/counter.factor b/extra/webapps/counter/counter.factor
index a14d6d98235b1bfc212d872e1f76988dfd15597c..f3efb3868f2e231893e6f5a3273294b7b9944c68 100644 (file)
--- a/extra/webapps/counter/counter.factor
+++ b/extra/webapps/counter/counter.factor
@@ -13,7 +13,7 @@ M: counter-app init-session* drop 0 count sset ;
 : <counter-action> ( quot -- action )
     <action>
         swap '[
-            count , schange
+            count _ schange
             URL" $counter-app" <redirect>
         ] >>submit ;