fix-return-value-from-overlay-routines.patch

   1 ---
   2
   3  source/interpret.c |    4 +++-
   4  1 file changed, 3 insertions(+), 1 deletion(-)
   5
   6 diff --quilt old/source/interpret.c new/source/interpret.c
   7 --- old/source/interpret.c
   8 +++ new/source/interpret.c
   9 @@ -2856,6 +2856,7 @@ static int callSubroutineUnpackArray(voi
  10
  11  int OverlayRoutineFromSymbol(Symbol *sym, int nArgs, int removeArgs)
  12  {
  13 +    int ret;
  14      DataValue *argArray = StackP + nArgs - removeArgs;
  15
  16      assert (nArgs >= 0);
  17 @@ -2881,7 +2882,8 @@ int OverlayRoutineFromSymbol(Symbol *sym
  18          assert (argArray->tag == NO_TAG);
  19          StackP = argArray;
  20      }
  21 -    return callSubroutineFromSymbol(sym, nArgs);
  22 +
  23 +    return STAT_ERROR != callSubroutineFromSymbol(sym, nArgs);
  24  }
  25
  26  /*