fixed: beginpart must divert main stream

This commit is contained in:
ceriel 1989-03-22 16:41:38 +00:00
parent 52d3ee55e2
commit d763d3ddeb

View file

@ -22,6 +22,7 @@ int d;
char *s; char *s;
swtxt(); swtxt();
C_jump(extnd_main( d));
symbol_definition(s = extnd_part( d)); symbol_definition(s = extnd_part( d));
set_local_visible(s); set_local_visible(s);
} }
@ -31,9 +32,12 @@ C_endpart( d)
int d; int d;
{ {
char *s;
swtxt(); swtxt();
C_jump(extnd_cont( d)); C_jump(extnd_cont( d));
symbol_definition(s = extnd_main( d));
set_local_visible(s);
} }