The R Project SVN R

Rev

Rev 54719 | Rev 74512 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 54719 Rev 59449
Line 90... Line 90...
90 
pp <- sapply(h, function(n) get(n, compiler:::inlineHandlers)$package)
 90 
pp <- sapply(h, function(n) get(n, compiler:::inlineHandlers)$package)
91 
stopifnot(identical(p, pp))
 91 
stopifnot(identical(p, pp))
92 
 
 92 
 
93 
 
 93 
 
94 
## Check assumption about simple .Internals
 94 
## Check assumption about simple .Internals
- 
 
 95 
## These are .External calls now.
95 
stopifnot(all(sapply(compiler:::safeStatsInternals,
 96 
## stopifnot(all(sapply(compiler:::safeStatsInternals,
96 
                     function(f)
 97 
##                      function(f)
97 
                     compiler:::is.simpleInternal(get(f, "package:stats")))))
 98 
##                      compiler:::is.simpleInternal(get(f, "package:stats")))))
98 
 
 99 
 
99 
stopifnot(all(sapply(compiler:::safeBaseInternals,
 100 
stopifnot(all(sapply(compiler:::safeBaseInternals,
100 
                     function(f)
 101 
                     function(f)
101 
                     compiler:::is.simpleInternal(get(f, "package:base")))))
 102 
                     compiler:::is.simpleInternal(get(f, "package:base")))))