Commit 4e20de09 authored by bernd's avatar bernd
Browse files

moved words to another place in test call

parent 7427f32c
Loading
Loading
Loading
Loading
+2 −2
Original line number Diff line number Diff line
@@ -115,12 +115,12 @@ previous
    net2o-code
      expect-reply
      !time .time s" Download test " $, type 1 lit, . pi float, f. cr
      ( see-me ) get-ip 0 lit, file-id 0 lit, words push' cr endwith
      ( see-me ) get-ip 0 lit,
      $400 blocksize! $400 blockalign! stat( request-stats )
      "net2o.fs" "net2o.fs" >cache n2o:copy
      "data/2011-05-13_11-26-57-small.jpg" "photo000s.jpg" >cache n2o:copy
      "data/2011-05-20_17-01-12-small.jpg" "photo001s.jpg" >cache n2o:copy
      n2o:done
      n2o:done words push' cr
    end-code| n2o:close-all ['] .time $err ;

: c:download2 ( -- )