tweak again

git-svn-id: https://svn.r-project.org/R/trunk@28249 00db46b3-68df-0310-9c12-caf00c1e9a41
wch · Feb 5, 2004 · fffcb83 · fffcb83
1 parent 66b8913
commit fffcb83
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/library/graphics/R/screen.R b/src/library/graphics/R/screen.R
@@ -146,14 +146,14 @@ close.screen <- function(n, all.screens=FALSE)
            "sp.valid.screens"), dev.cur(), sep=":"), envir=.SSenv)
 	invisible()
     } else {
-	.SSassign("sp.valid.screens",
-                  valid.screens[-sort(match(n, valid.screens))])
+        valid.screens <- valid.screens[-sort(match(n, valid.screens))]
+	.SSassign("sp.valid.screens", valid.screens)
 	temp <- .SSget("sp.cur.screen")
 	if (temp %in% n) {
             poss <- valid.screens[valid.screens>temp]
 	    temp <- if(length(poss)) min(poss) else min(valid.screens)
         }
 	screen(temp, new=FALSE)
-	.SSget("sp.valid.screens")
+	valid.screens
     }
 }