steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/webapps/benchmark/benchmark.factor
View File

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