Cleanups for c88456.

git-svn-id: https://svn.r-project.org/R/trunk@88485 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: hornik

src/library/base/R/library.R

@@ -376,9 +376,6 @@ function(package, help, pos = 2, lib.loc = NULL, character.only = FALSE,
                     }
                 }
 		tt <- tryCatch({
-                    ## <FIXME c68715>
-                    ## attr(package, "LibPath") <- which.lib.loc
-                    ## </FIXME>
                     ns <- loadNamespace(package, lib.loc)
                     env <- attachNamespace(ns, pos = pos, deps,
                                            exclude, include.only)
@@ -394,9 +391,6 @@ function(package, help, pos = 2, lib.loc = NULL, character.only = FALSE,
 		if(logical.return && is.null(tt))
 		    return(FALSE)
 
-                ## <FIXME c68715>
-                ## attr(package, "LibPath") <- NULL
-                ##
                 {
                     on.exit(detach(pos = pos))
                     ## If there are S4 generics then the package should

src/library/base/R/namespace.R

@@ -184,9 +184,6 @@ loadNamespace <- function (package, lib.loc = NULL,
                            partial = FALSE, versionCheck = NULL,
                            keep.parse.data = getOption("keep.parse.data.pkgs"))
 {
-    ## <FIXME c68715> 
-    ## libpath <- attr(package, "LibPath")
-    ## </FIXME>
     package <- as.character(package)[[1L]]
 
     loading <- dynGet("__NameSpacesLoading__", NULL)
@@ -362,10 +359,7 @@ loadNamespace <- function (package, lib.loc = NULL,
 
         ## find package, allowing a calling handler to retry if not found.
         ## could move the retry functionality into find.package.
-        ## <FIXME c68715>
-        ## fp.lib.loc <- c(libpath, lib.loc)
         fp.lib.loc <- lib.loc
-        ## </FIXME>
         pkgpath <- find.package(package, fp.lib.loc, quiet = TRUE)
         if (length(pkgpath) == 0L) {
             cond <- packageNotFoundError(package, fp.lib.loc, sys.call())