Mercurial > hg > octave-nkf
changeset 1848:979f25fd161f
[project @ 1996-02-03 12:58:27 by jwe]
author | jwe |
---|---|
date | Sat, 03 Feb 1996 12:58:27 +0000 |
parents | 2ffe49eb95a5 |
children | 60aad6fce844 |
files | liboctave/f77-fcn.h |
diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/liboctave/f77-fcn.h +++ b/liboctave/f77-fcn.h @@ -46,11 +46,11 @@ #if defined (F77_UPPERCASE_NAMES) #define F77_XFCN_ERROR(f, F) \ - (*current_liboctave_error_handler) + (*current_liboctave_error_handler) \ ("exception encountered in Fortran subroutine %s", F); #else #define F77_XFCN_ERROR(f, F) \ - (*current_liboctave_error_handler) + (*current_liboctave_error_handler) \ ("exception encountered in Fortran subroutine %s", f); #endif