<HTML><BODY><a href="http://docs.racket-lang.org/reference/Filesystem.html?q=atomic#%28def._%28%28lib._racket%2Ffile..rkt%29._call-with-atomic-output-file%29%29">http://docs.racket-lang.org/reference/Filesystem.html?q=atomic#%28def._%28%28lib._racket%2Ffile..rkt%29._call-with-atomic-output-file%29%29</a><br><br><span class="RktVar" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #444444; font-style: italic; font-size: 1rem; position: relative; left: -1px;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #444444; font-style: italic; font-size: 1rem; position: relative; left: -1px;">proc</span><span class="hspace" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;"> </span><span style="font-family: Charter, serif; font-size: 18px; line-height: 24.7800006866455px; white-space: nowrap;" data-mce-style="font-family: Charter, serif; font-size: 18px; line-height: 24.7800006866455px; white-space: nowrap;">:</span><span class="hspace" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;"> </span><span class="RktPn" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;">(</span><span class="RktPn" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;">[</span><span class="RktSym" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;">port</span><span class="hspace" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;"> </span><span class="RktSym" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;"><a class="RktValLink" style="margin: 0px; padding: 0px; text-decoration: none; color: #0077aa; font-size: 1rem;" href="http://docs.racket-lang.org/reference/port-ops.html?q=atomic#%28def._%28%28quote._~23~25kernel%29._input-port~3f%29%29" data-pltdoc="x" data-mce-href="http://docs.racket-lang.org/reference/port-ops.html?q=atomic#%28def._%28%28quote._~23~25kernel%29._input-port~3f%29%29" data-mce-style="margin: 0px; padding: 0px; text-decoration: none; color: #0077aa; font-size: 1rem;">input-port?</a></span><span class="RktPn" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;">]</span><span class="hspace" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;"> </span><span class="RktPn" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;">[</span><span class="RktSym" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;">tmp-path</span><span class="hspace" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;"> </span><span class="RktSym" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;"><a class="RktValLink" style="margin: 0px; padding: 0px; text-decoration: none; color: #0077aa; font-size: 1rem;" href="http://docs.racket-lang.org/reference/Manipulating_Paths.html?q=atomic#%28def._%28%28quote._~23~25kernel%29._path~3f%29%29" data-pltdoc="x" data-mce-href="http://docs.racket-lang.org/reference/Manipulating_Paths.html?q=atomic#%28def._%28%28quote._~23~25kernel%29._path~3f%29%29" data-mce-style="margin: 0px; padding: 0px; text-decoration: none; color: #0077aa; font-size: 1rem;">path?</a></span><span class="RktPn" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;">]</span><span class="hspace" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;">  </span><span class="RktPn" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;">. </span><span class="RktSym" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;"><a class="RktStxLink" style="margin: 0px; padding: 0px; text-decoration: none; color: #0077aa; font-size: 1rem;" href="http://docs.racket-lang.org/reference/function-contracts.html?q=atomic#%28form._%28%28lib._racket%2Fcontract%2Fbase..rkt%29._-~3e%29%29" data-pltdoc="x" data-mce-href="http://docs.racket-lang.org/reference/function-contracts.html?q=atomic#%28form._%28%28lib._racket%2Fcontract%2Fbase..rkt%29._-~3e%29%29" data-mce-style="margin: 0px; padding: 0px; text-decoration: none; color: #0077aa; font-size: 1rem;"><span class="nobreak" style="margin: 0px; padding: 0px;" data-mce-style="margin: 0px; padding: 0px;">-></span></a></span><span class="RktPn" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;"> .</span><span class="hspace" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;"> </span><span class="RktSym" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;"><a class="RktStxLink" style="margin: 0px; padding: 0px; text-decoration: none; color: #0077aa; font-size: 1rem;" href="http://docs.racket-lang.org/reference/data-structure-contracts.html?q=atomic#%28form._%28%28lib._racket%2Fcontract%2Fprivate%2Fmisc..rkt%29._any%29%29" data-pltdoc="x" data-mce-href="http://docs.racket-lang.org/reference/data-structure-contracts.html?q=atomic#%28form._%28%28lib._racket%2Fcontract%2Fprivate%2Fmisc..rkt%29._any%29%29" data-mce-style="margin: 0px; padding: 0px; text-decoration: none; color: #0077aa; font-size: 1rem;">any</a></span><span class="RktPn" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;">)<br><br></span>Should be<br><br><span class="RktVar" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #444444; font-style: italic; font-size: 1rem; position: relative; left: -1px;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #444444; font-style: italic; font-size: 1rem; position: relative; left: -1px;">proc</span><span class="hspace" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;"> </span><span style="font-family: Charter, serif; font-size: 18px; line-height: 24.7800006866455px; white-space: nowrap;" data-mce-style="font-family: Charter, serif; font-size: 18px; line-height: 24.7800006866455px; white-space: nowrap;">:</span><span class="hspace" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;"> </span><span class="RktPn" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;">(</span><span class="RktPn" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;">[</span><span class="RktSym" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;">port</span><span class="hspace" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;"> out</span><span class="RktSym" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;"><a class="RktValLink" style="margin: 0px; padding: 0px; text-decoration: none; color: #0077aa; font-size: 1rem;" href="http://docs.racket-lang.org/reference/port-ops.html?q=atomic#%28def._%28%28quote._~23~25kernel%29._input-port~3f%29%29" data-pltdoc="x" data-mce-href="http://docs.racket-lang.org/reference/port-ops.html?q=atomic#%28def._%28%28quote._~23~25kernel%29._input-port~3f%29%29" data-mce-style="margin: 0px; padding: 0px; text-decoration: none; color: #0077aa; font-size: 1rem;">put-port?</a></span><span class="RktPn" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;">]</span><span class="hspace" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;"> </span><span class="RktPn" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;">[</span><span class="RktSym" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;">tmp-path</span><span class="hspace" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;"> </span><span class="RktSym" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;"><a class="RktValLink" style="margin: 0px; padding: 0px; text-decoration: none; color: #0077aa; font-size: 1rem;" href="http://docs.racket-lang.org/reference/Manipulating_Paths.html?q=atomic#%28def._%28%28quote._~23~25kernel%29._path~3f%29%29" data-pltdoc="x" data-mce-href="http://docs.racket-lang.org/reference/Manipulating_Paths.html?q=atomic#%28def._%28%28quote._~23~25kernel%29._path~3f%29%29" data-mce-style="margin: 0px; padding: 0px; text-decoration: none; color: #0077aa; font-size: 1rem;">path?</a></span><span class="RktPn" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;">]</span><span class="hspace" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;">  </span><span class="RktPn" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;">. </span><span class="RktSym" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;"><a class="RktStxLink" style="margin: 0px; padding: 0px; text-decoration: none; color: #0077aa; font-size: 1rem;" href="http://docs.racket-lang.org/reference/function-contracts.html?q=atomic#%28form._%28%28lib._racket%2Fcontract%2Fbase..rkt%29._-~3e%29%29" data-pltdoc="x" data-mce-href="http://docs.racket-lang.org/reference/function-contracts.html?q=atomic#%28form._%28%28lib._racket%2Fcontract%2Fbase..rkt%29._-~3e%29%29" data-mce-style="margin: 0px; padding: 0px; text-decoration: none; color: #0077aa; font-size: 1rem;"><span class="nobreak" style="margin: 0px; padding: 0px;" data-mce-style="margin: 0px; padding: 0px;">-></span></a></span><span class="RktPn" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;"> .</span><span class="hspace" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;"> </span><span class="RktSym" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; font-size: 1rem;"><a class="RktStxLink" style="margin: 0px; padding: 0px; text-decoration: none; color: #0077aa; font-size: 1rem;" href="http://docs.racket-lang.org/reference/data-structure-contracts.html?q=atomic#%28form._%28%28lib._racket%2Fcontract%2Fprivate%2Fmisc..rkt%29._any%29%29" data-pltdoc="x" data-mce-href="http://docs.racket-lang.org/reference/data-structure-contracts.html?q=atomic#%28form._%28%28lib._racket%2Fcontract%2Fprivate%2Fmisc..rkt%29._any%29%29" data-mce-style="margin: 0px; padding: 0px; text-decoration: none; color: #0077aa; font-size: 1rem;">any</a></span><span class="RktPn" style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;" data-mce-style="margin: 0px; padding: 0px; font-family: 'Source Code Pro', monospace; white-space: nowrap; color: #843c24; font-size: 1rem;">)</span><br><br>because in code it got result of open-output-dile <br><br>-- <br>Roman Klochkov</BODY></HTML>