diff options
Diffstat (limited to 'unif.c')
-rw-r--r-- | unif.c | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -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); |