From 579360ed93f36de23e4c110593037b26b0e82794 Mon Sep 17 00:00:00 2001
From: jwalz <jwalz>
Date: Fri, 15 Mar 2002 22:07:24 +0000
Subject: [PATCH] <Someone> pointed out a possible infinite loop here.

---
 src/spell.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/spell.c b/src/spell.c
index 4b3ef429d..ab72822e0 100644
--- a/src/spell.c
+++ b/src/spell.c
@@ -281,7 +281,7 @@ learn()
 	boolean costly = TRUE;
 
 	/* JDS: lenses give 50% faster reading; 33% smaller read time */
-	if (ublindf && ublindf->otyp == LENSES && rn2(2)) delay++;
+	if (delay && ublindf && ublindf->otyp == LENSES && rn2(2)) delay++;
 	if (delay) {	/* not if (delay++), so at end delay == 0 */
 		delay++;
 		return(1); /* still busy */