The R Project SVN R

Rev

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

Rev 69945 Rev 70362
Line 13... Line 13...
13 
character(2^30+1)
 13 
character(2^30+1)
14 
vector("list", 2^30+2)
 14 
vector("list", 2^30+2)
15 
}
 15 
}
16 
 
 16 
 
17 
## bad infinite recursion / on.exit / ... interactions
 17 
## bad infinite recursion / on.exit / ... interactions
- 
 
 18 
##   catch the error to permit different error messages emitted
- 
 
 19 
##   (handling of infinite recursion is different in the AST interpreter
- 
 
 20 
##   and the byte-code interpreter)
- 
 
 21 
 
18 
bar <- function() 1+1
 22 
bar <- function() 1+1
19 
foo <- function() { on.exit(bar()); foo() }
 23 
foo <- function() { on.exit(bar()); foo() }
20 
foo() # now simple "infinite recursion"
 24 
tryCatch(foo(), error=function(x) TRUE) # now simple "infinite recursion"