home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 6_17.tcl < prev    next >
Text File  |  2003-04-16  |  193b  |  20 lines
  1. #
  2. # Example 6-17
  3. # Raising an error.
  4. #
  5.  
  6. proc foo {} {
  7.     error bogus
  8. }
  9. foo
  10. #=> bogus
  11. set errorInfo
  12. #=> bogus
  13.     while executing
  14. "error bogus"
  15.     (procedure "foo" line 2)
  16.     invoked from within
  17. "foo"
  18.  
  19.  
  20.