comparison src/toplev.cc @ 9981:692ab4eaf965

clean up top-level variables when exiting Octave
author Jaroslav Hajek <highegg@gmail.com>
date Mon, 14 Dec 2009 12:11:53 +0100
parents 0d4613a736e9
children 2b008f1d3794
comparison
equal deleted inserted replaced
9980:e352f8366b02 9981:692ab4eaf965
670 670
671 void 671 void
672 clean_up_and_exit (int retval) 672 clean_up_and_exit (int retval)
673 { 673 {
674 do_octave_atexit (); 674 do_octave_atexit ();
675
676 // Clean up symbol table.
677 SAFE_CALL (symbol_table::cleanup, ());
675 678
676 SAFE_CALL (sysdep_cleanup, ()) 679 SAFE_CALL (sysdep_cleanup, ())
677 680
678 if (octave_exit) 681 if (octave_exit)
679 (*octave_exit) (retval == EOF ? 0 : retval); 682 (*octave_exit) (retval == EOF ? 0 : retval);