summaryrefslogtreecommitdiffstats
path: root/unif.c
diff options
context:
space:
mode:
authorRob Browning <rlb@cs.utexas.edu>1997-12-12 17:29:42 -0600
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:24 -0800
commitf64b2806c1d66a1341bb8b1491f384169ab1d65f (patch)
tree8b97dbe3640c60927959b0e63461ef9fcae591e0 /unif.c
parent6dcb175d7f34d9f5a0b3ba623f94454ec16a73d6 (diff)
parent1edcb9b62a1a520eddae8403c19d841c9b18737f (diff)
downloadscm-f64b2806c1d66a1341bb8b1491f384169ab1d65f.tar.gz
scm-f64b2806c1d66a1341bb8b1491f384169ab1d65f.zip
Import Debian changes 5b3-1debian/5b3-1
scm (5b3-1) unstable; urgency=low * New maintainer * New version * libc6
Diffstat (limited to 'unif.c')
-rw-r--r--unif.c6
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);