[Commit] nickle compile.c,1.135,1.136

Keith Packard commit@keithp.com
Thu, 29 May 2003 09:38:01 -0700


Committed by: keithp

Update of /local/src/CVS/nickle
In directory home.keithp.com:/tmp/cvs-serv21769

Modified Files:
	compile.c 
Log Message:
Missing NonLocal around twixt body

Index: compile.c
===================================================================
RCS file: /local/src/CVS/nickle/compile.c,v
retrieving revision 1.135
retrieving revision 1.136
diff -u -d -r1.135 -r1.136
--- compile.c	29 May 2003 06:13:09 -0000	1.135
+++ compile.c	29 May 2003 16:37:59 -0000	1.136
@@ -1077,8 +1077,12 @@
     /* here's where the twixt instruction goes */
     NewInst (obj, OpTwixt, twixt_inst, stat);
 
+    obj->nonLocal = NewNonLocal (obj->nonLocal, NonLocalTwixt, 0);
+    
     /* Compile the body */
     obj = _CompileStat (obj, expr->tree.right->tree.left, False, code);
+
+    obj->nonLocal = obj->nonLocal->prev;
     
     BuildInst (obj, OpTwixtDone, inst, stat);