Lout 3.41.HEADmaster

http://jeffreykingston.id.au/lout/lout-3.41.tar.gz

1 files changed, 5 insertions, 4 deletions

diff --git a/z47.c b/z47.c
index 855f74e..d502e9d 100644
--- a/z47.c
+++ b/z47.c
@@ -1,7 +1,7 @@
 /*@z47.c:Environment Table:EnvReadRetrieve()@*********************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.39)                       */
-/*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.41)                       */
+/*  COPYRIGHT (C) 1991, 2023 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
 /*  School of Information Technologies                                       */
@@ -29,6 +29,7 @@
 /*                                                                           */
 /*****************************************************************************/
 #include "externs.h"
+#include "child.h"
 #define	TAB_SIZE	211
 #define	MAX_CACHE	180
 
@@ -167,7 +168,7 @@ void EnvWriteInsert(OBJECT env, FILE_NUM fnum, int offset, int lnum)
 /*****************************************************************************/
 
 BOOLEAN EnvReadRetrieve(FILE_NUM fnum, int offset, OBJECT *env)
-{ int pos;  OBJECT link, y, z;
+{ int pos;  OBJECT link, y /* , z */;
   debug2(DET, DD, "EnvReadRetrieve(%s, %d)", FileName(fnum), offset);
   stat_reads++;
 
@@ -176,7 +177,7 @@ BOOLEAN EnvReadRetrieve(FILE_NUM fnum, int offset, OBJECT *env)
   {
     for( link = Down(tab[pos]);  link != tab[pos];  link = NextDown(link) )
     { Child(y, link);
-      Child(z, Down(y));
+      /* Child(z, Down(y)); */
       if( env_fnum(y) == fnum && env_offset(y) == offset && env_read(y) )
       { MoveLink(LastUp(y), env_cache, PARENT);
 	Child(*env, Down(y));