<Someone> pointed out a possible infinite loop here.

diff --git a/src/spell.c b/src/spell.c
index 4b3ef429d947a3a7fb613ee530a2a458bb203310..ab72822e0531bf328f542f2a74e0d3f194438444 100644 (file)
--- 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 */