Vim Scons command

scons.vim

function! s:Scons()
    if !executable("scons")
        echohl Error
        echo "No scons executable."
        echohl None
        return -1
    endif
    let sconstruct = findfile("SConstruct", ".;")
    if len(sconstruct)
        exec "cd" fnameescape(fnamemodify(sconstruct, ':h'))
        !scons
        cd -
    else
        echohl Error
        echo "Cannot find SConstruct."
        echohl None
        return -1
    endif
endfunction
command! -nargs=0 Scons call <SID>Scons()