basis/tools/deploy/test/5/5.factor

   1 IN: tools.deploy.test.5
   2 USING: accessors urls io.encodings.ascii io.files math.parser
   3 http.client kernel ;
   4
   5 : deploy-test-5 ( -- )
   6     URL" http://localhost/foo.html" clone
   7     "resource:port-number" ascii file-contents string>number >>port
   8     http-get 2drop ;
   9
  10 MAIN: deploy-test-5