From: ceriel <none@none>
Date: Wed, 22 Mar 1989 16:41:38 +0000 (+0000)
Subject: fixed: beginpart must divert main stream
X-Git-Tag: release-5-5~2486
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=d763d3ddebb5590432bb3059feb37326271e4c7b;p=ack.git

fixed: beginpart must divert main stream
---

diff --git a/util/ceg/defaults/pseudo/C_insertpart.c b/util/ceg/defaults/pseudo/C_insertpart.c
index 8e657b821..97c65a093 100644
--- a/util/ceg/defaults/pseudo/C_insertpart.c
+++ b/util/ceg/defaults/pseudo/C_insertpart.c
@@ -22,6 +22,7 @@ int d;
 	char *s;
 	swtxt();
 
+	C_jump(extnd_main( d));
 	symbol_definition(s = extnd_part( d));
 	set_local_visible(s);
 }
@@ -31,9 +32,12 @@ C_endpart( d)
 int d;
 
 {
+	char *s;
 	swtxt();
 
 	C_jump(extnd_cont( d));
+	symbol_definition(s = extnd_main( d));
+	set_local_visible(s);
 }