R help - Mar 2000 - body bug?

I am not sure if this is a bug or not but it seemed estrange to me.

Following code works ok.
> cat("Hello my body is:  ");body(cat)
Hello my body is:  .Internal(cat(list(...), file, sep, fill, labels, 
append))
> cat("Hello my body is:  ");body(cat);cat("\n")
Hello my body is:  .Internal(cat(list(...), file, sep, fill, labels, 
append))
>
But when I define a function it doesn't work...
> f <- function(x) {cat("Hello my body is: 
");body(x);cat("\n");}
> f(cat)
Hello my body is:  
> 
Does anybody knows why it doesn't work ?.


Thanks in advance, and Great Work.



-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at
stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

Jorge Luis Ojeda Cabrera <jojeda at posta.unizar.es> writes:
> But when I define a function it doesn't work...
> 
> > f <- function(x) {cat("Hello my body is: 
");body(x);cat("\n");}
> > f(cat)
> Hello my body is:  
> > 
> 
> Does anybody knows why it doesn't work ?.
Try 
> f <- function(x) {cat("Hello my body is: 
");print(body(x));cat("\n");}
                                               ^^^^^        


-- 
   O__  ---- Peter Dalgaard             Blegdamsvej 3  
  c/ /'_ --- Dept. of Biostatistics     2200 Cph. N   
 (*) \(*) -- University of Copenhagen   Denmark      Ph: (+45) 35327918
~~~~~~~~~~ - (p.dalgaard at biostat.ku.dk)             FAX: (+45) 35327907
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at
stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._