"" requires:
""
""  chicken-install chicken-doc
""  cd `csi -R chicken.platform -p '(chicken-home)'`
""  curl https://3e8.org/pub/chicken-doc/chicken-doc-repo-5.tgz | tar zx
""
"" then run ../gen-scheme-words
""
let b:is_chicken=1

setl complete+=d,k~/.local/share/scheme/words/**

setl include=\^\(\\(use\\\|require-extension\\)\\s\\+
setl includeexpr=substitute(v:fname,'$','.scm','')
setl path+=/home/chl/.cache/chicken-install
setl suffixesadd=.scm

fun! Scheme_indent_top_sexp()
    let pos = getpos('.')
    silent! exec 'normal! 99[(=%'
    call setpos('.', pos)
endfun

nmap <buffer> <silent> == :call Scheme_indent_top_sexp()<cr>
nmap <buffer> gs :10 split term://csi -s %<cr>:startinsert<cr>

setl makeprg=csc\ %
setlocal keywordprg=chicken-doc\ scheme