Branch: Tag:

2001-06-11

2001-06-11 16:34:01 by Henrik Grubbström (Grubba) <grubba@grubba.org>

More paranoia in safe_apply_handler().

Rev: src/interpret.c:1.205

5:   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.204 2001/06/10 00:23:24 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.205 2001/06/11 16:34:01 grubba Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
1648:    INT32 args)   {    int i; -  if (handler && +  if (handler && handler->prog &&    (i = find_identifier(fun, handler->prog)) != -1) {    safe_apply_low(handler, i, args); -  } else if (compat && +  } else if (compat && compat->prog &&    (i = find_identifier(fun, compat->prog)) != -1) {    safe_apply_low(compat, i, args);    } else {