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

use with-variable in some places with-scope was used.

char-rename
John Benediktsson 2017-01-03 19:12:29 -08:00
parent f9b9ce20f2
commit 3974ba8ba3
3 changed files with 8 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/http/http-tests.factor
View File

@ -237,13 +237,12 @@ http.server.dispatchers db.tuples ;
] unit-test ] unit-test
: test-with-dispatcher ( dispatcher quot -- ) : test-with-dispatcher ( dispatcher quot -- )
'[ [ main-responder ] dip '[
main-responder set
<http-server> 0 >>insecure f >>secure <http-server> 0 >>insecure f >>secure
[ [
server-addrs random "addr" set @ server-addrs random "addr" set @
] with-threaded-server ] with-threaded-server
] with-scope ; inline ] with-variable ; inline
USING: locals ; USING: locals ;

10
basis/nmake/nmake.factor
View File

@ -32,13 +32,9 @@ MACRO: finish-nmake ( exemplars -- quot )
length [ firstn ] curry ; length [ firstn ] curry ;
:: nmake ( quot exemplars -- ) :: nmake ( quot exemplars -- )
[ exemplars [ 0 swap new-resizable ] map
exemplars building-seq [
[ 0 swap new-resizable ] map
building-seq set
quot call quot call
building-seq get building-seq get
exemplars [ [ like ] 2map ] [ finish-nmake ] bi exemplars [ [ like ] 2map ] [ finish-nmake ] bi
] with-scope ; inline ] with-variable ; inline

8
basis/tools/deploy/deploy-tests.factor
View File

@ -73,7 +73,7 @@ os macosx? [
"tools.deploy.test.3" "tools.deploy.test.3"
"tools.deploy.test.4" "tools.deploy.test.4"
} [ } [
[ ] swap [ { } swap [
shake-and-bake shake-and-bake
run-temp-image run-temp-image
] curry unit-test ] curry unit-test
@ -91,16 +91,14 @@ M: quit-responder call-responder*
quit-responder "quit" add-responder ; quit-responder "quit" add-responder ;
: test-httpd ( responder -- ) : test-httpd ( responder -- )
[ main-responder [
main-responder set
<http-server> <http-server>
0 >>insecure 0 >>insecure
f >>secure f >>secure
start-server start-server
servers>> first addr>> port>> servers>> first addr>> port>>
dup number>string "port-number" temp-file ascii set-file-contents dup number>string "port-number" temp-file ascii set-file-contents
] with-scope ] with-variable "port" set ;
"port" set ;
{ } [ { } [
<dispatcher> <dispatcher>