Skip to content
Browse files

Remove debugging code

git-svn-id: https://svn.r-project.org/R/branches/R-noNULLenv@36169 00db46b3-68df-0310-9c12-caf00c1e9a41
  • Loading branch information...
1 parent d19ddeb commit b5571cd10bf615e476d6e943a5f94a78ecbb6cb6 murdoch committed Nov 3, 2005
Showing with 2 additions and 8 deletions.
  1. +1 −4 src/library/base/makebasedb.R
  2. +1 −1 src/main/envir.c
  3. +0 −3 src/main/errors.c
View
5 src/library/base/makebasedb.R
@@ -75,10 +75,7 @@ local({
if (length(vars) != length(from) || any(nchar(vars) == 0))
stop("source list must have names for all elements")
}
- else {
- print(sys.calls()) # DJM debugging
- stop("source must be an environment or a list")
- }
+ else stop("source must be an environment or a list");
for (i in seq(along = vars)) {
if (is.environment(from))
View
2 src/main/envir.c
@@ -1337,7 +1337,7 @@ SEXP setVarInFrame(SEXP rho, SEXP symbol, SEXP value)
error(_("cannot remove variables from this database"));
return(table->assign(CHAR(PRINTNAME(symbol)), value, table));
}
-
+
if (rho == R_BaseNamespace) {
#ifdef USE_GLOBAL_CACHE
R_FlushGlobalCache(symbol);
View
3 src/main/errors.c
@@ -514,9 +514,6 @@ static void errorcall_dflt(SEXP call, const char *format,...)
void errorcall(SEXP call, const char *format,...)
{
-
-/* PrintValue(R_GetTraceback(0)); /* DJM debugging */
-
va_list(ap);
#ifdef NEW_CONDITION_HANDLING

0 comments on commit b5571cd

Please sign in to comment.
Something went wrong with that request. Please try again.