Tcl Source Code

Artifact df360bca8ed781e32ab97f85b96c81d82d09a660:

Attachment "stack.tcl" to ticket [746378ffff] added by mistachkin 2003-06-03 03:44:52.

---

proc recurse1 {} { return [recurse1] }
proc recurse2 {i} { puts $i; return [recurse2 [expr {$i + 1}]] }

interp recursionlimit {} 1000

set recurse_error ""
catch {recurse1} recurse_error
puts stdout $recurse_error

interp recursionlimit {} 10000000

set recurse_error ""
catch {recurse1} recurse_error
puts stdout $recurse_error