webapps.benchmark: rename generically named word.
parent
a2de784312
commit
f185259cae
|
@ -11,15 +11,15 @@ IN: webapps.benchmark
|
||||||
<page-action>
|
<page-action>
|
||||||
[ "Hello, world!" <text-content> ] >>display ;
|
[ "Hello, world!" <text-content> ] >>display ;
|
||||||
|
|
||||||
TUPLE: benchmark < dispatcher ;
|
TUPLE: benchmark-dispatcher < dispatcher ;
|
||||||
|
|
||||||
: <benchmark> ( -- dispatcher )
|
: <benchmark-dispatcher> ( -- dispatcher )
|
||||||
benchmark new-dispatcher
|
benchmark-dispatcher new-dispatcher
|
||||||
<hello-action> "hello" add-responder
|
<hello-action> "hello" add-responder
|
||||||
"resource:" <static> "static" add-responder ;
|
"resource:" <static> "static" add-responder ;
|
||||||
|
|
||||||
: run-benchmark-webapp ( -- )
|
: run-benchmark-webapp ( -- )
|
||||||
<benchmark>
|
<benchmark-dispatcher>
|
||||||
main-responder set-global
|
main-responder set-global
|
||||||
8080 httpd drop ;
|
8080 httpd drop ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue