functions<-  
function (...) 
{
    names <- eval.parent(substitute(ls(...)))
    prnt <- parent.frame()
    fcts <- sapply(names, function(s) is.function(get(s, envir = prnt)))
    names[fcts]
}