Mercurial > hg > octave-nkf
diff src/variables.cc @ 3022:0e458bbb1859
[project @ 1997-06-03 23:08:04 by jwe]
author | jwe |
---|---|
date | Tue, 03 Jun 1997 23:08:34 +0000 |
parents | f491f232cb09 |
children | f33738510eb2 |
line wrap: on
line diff
--- a/src/variables.cc +++ b/src/variables.cc @@ -489,25 +489,24 @@ { octave_value ans = sr->def (); - if (! Vignore_function_time_stamp && ans.is_defined ()) - { - octave_function *tmp = ans.function_value (true); + octave_function *tmp = ans.function_value (true); - if (tmp && tmp->is_system_fcn_file ()) - { - string ff = tmp->fcn_file_name (); + if (tmp) + { + string ff = tmp->fcn_file_name (); - if (! ff.empty ()) - { - time_t tp = tmp->time_parsed (); - - string fname = fcn_file_in_path (ff); + if (! (ff.empty () + || (Vignore_function_time_stamp + && tmp->is_system_fcn_file ()))) + { + time_t tp = tmp->time_parsed (); - int status = file_stat::is_newer (fname, tp); + string fname = fcn_file_in_path (ff); - if (status > 0) - retval = true; - } + int status = file_stat::is_newer (fname, tp); + + if (status > 0) + retval = true; } } }