[Roxygen-commits] r21 - pkg/R

[noreply at r-forge.r-project.org]

Author: pcd
Date: 2008-06-03 02:45:24 +0200 (Tue, 03 Jun 2008)
New Revision: 21

Modified:
   pkg/R/parse.R
Log:
extraneous extraction of srcfile


Modified: pkg/R/parse.R
===================================================================
--- pkg/R/parse.R	2008-06-03 00:42:10 UTC (rev 20)
+++ pkg/R/parse.R	2008-06-03 00:45:24 UTC (rev 21)
@@ -108,7 +108,7 @@
   pivot <- caar(expression)
   parser <- parser.srcref(as.character(pivot))
   append(do.call(parser, list(expression)),
-         list(srcref=list(filename=attributes(srcref)$srcfile$filename,
+         list(srcref=list(filename=srcfile$filename,
                 lloc=as.vector(srcref))))
          
 }