Version 1 of with-path

Updated 2015-03-11 13:09:53 by dbohdan

dbohdan 2015-03-11: With path is to cd what withOpenFile is to open.

proc with-path {path code} {
    set prevPath [pwd]
    cd $path
    uplevel 1 $code
    cd $prevPath
}