Posted to tcl by gps at Wed Mar 11 08:18:35 GMT 2009view raw

  1. Index: tclBasic.c
  2. ===================================================================
  3. RCS file: /cvsroot/tcl/tcl/generic/tclBasic.c,v
  4. retrieving revision 1.386
  5. diff -r1.386 tclBasic.c
  6. 8406a8407
  7. > int result;
  8. 8518c8519
  9. < return TclNRRunCallbacks(interp,
  10. ---
  11. > result = TclNRRunCallbacks(interp,
  12. 8519a8521,8524
  13. >
  14. > Tcl_DecrRefCount(cmdObjPtr);
  15. >
  16. > return result;
  17.