From 1edcb9b62a1a520eddae8403c19d841c9b18737f Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:24 -0800
Subject: Import Upstream version 5b3

---
 unif.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'unif.c')

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);
-- 
cgit v1.2.3