Import Upstream version 5b3upstream/5b3

1 files changed, 5 insertions, 1 deletions

diff --git a/unif.c b/unif.c
index 4bc2ecf..6a5fe84 100644
--- a/unif.c
+++ b/unif.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1996 Free Software Foundation, Inc.
+/* Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997 Free Software Foundation, Inc.
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -1761,6 +1761,10 @@ static void rapr1(ra, j, k, port, writing)
 	 lputc(CHARS(ra)[j], port);
      break;
    case tc7_uvect:
+     if (errjmp_bad) {
+       ipruk("uvect", ra, port);
+       break;
+     }
      if (n-- > 0) iprin1(ulong2num(VELTS(ra)[j]), port, writing);
      for (j += inc; n-- > 0; j += inc) {
        lputc(' ', port);