webapps.benchmark: rename generically named word.

db4
Doug Coleman 2015-06-08 17:22:32 -07:00
parent a2de784312
commit f185259cae
1 changed files with 4 additions and 4 deletions

View 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 ;