in blah.vim:
============================
function! S(token)
   r '!grep ok '. a:token
endfunction
===========================

after i :source blah.vim
i run:

:call S("blah.vim")

it says:
==========================
Error detected while processing function S:
line    1:
E77: Too many file names
Press ENTER or type command to continue
===================