<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> <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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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;">-></a><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 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 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 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;">) Should be <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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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;">-></a><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 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 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 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;">) because in code it got result of open-output-dile -- Roman Klochkov</BODY></HTML>