]> gitweb.factorcode.org Git - factor.git/commitdiff
webapps.benchmark: rename generically named word.
authorDoug Coleman <doug.coleman@gmail.com>
Tue, 9 Jun 2015 00:22:32 +0000 (17:22 -0700)
committerDoug Coleman <doug.coleman@gmail.com>
Tue, 9 Jun 2015 00:22:32 +0000 (17:22 -0700)
extra/webapps/benchmark/benchmark.factor

index 02af19e419d1566c0c3dd0e44f248fdd1b0c44a5..43bb9320089e4a41f22b0d2194e35d2bba5f1188 100644 (file)
@@ -11,15 +11,15 @@ IN: webapps.benchmark
     <page-action>
         [ "Hello, world!" <text-content> ] >>display ;
 
-TUPLE: benchmark < dispatcher ;
+TUPLE: benchmark-dispatcher < dispatcher ;
 
-: <benchmark> ( -- dispatcher )
-    benchmark new-dispatcher
+: <benchmark-dispatcher> ( -- dispatcher )
+    benchmark-dispatcher new-dispatcher
         <hello-action> "hello" add-responder
         "resource:" <static> "static" add-responder ;
 
 : run-benchmark-webapp ( -- )
-    <benchmark>
+    <benchmark-dispatcher>
         main-responder set-global
     8080 httpd drop ;