texlive[72043] Build/source/texk/web2c/showstream.ch: [WEB] Add

[commits+ascherer at tug.org]

Revision: 72043
          https://tug.org/svn/texlive?view=revision&revision=72043
Author:   ascherer
Date:     2024-08-16 16:43:28 +0200 (Fri, 16 Aug 2024)
Log Message:
-----------
[WEB] Add virtual semicolons.

This prevents the following statement to be placed right next to the
'@<Named section@>', which makes the rendering rather unintelligible.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/showstream.ch

Modified: trunk/Build/source/texk/web2c/showstream.ch
===================================================================
--- trunk/Build/source/texk/web2c/showstream.ch	2024-08-16 14:29:54 UTC (rev 72042)
+++ trunk/Build/source/texk/web2c/showstream.ch	2024-08-16 14:43:28 UTC (rev 72043)
@@ -72,7 +72,7 @@
   end;
 @y
 show_lists_code:
-  begin @<Adjust |selector| based on |show_stream|@>
+  begin @<Adjust |selector| based on |show_stream|@>@;
   begin_diagnostic; show_activities;
   end;
 @z
@@ -134,7 +134,7 @@
 @y
 @ @<Show the current meaning of a token...@>=
 begin get_token;
-  @<Adjust |selector| based on |show_stream|@>
+  @<Adjust |selector| based on |show_stream|@>@;
 @z
 
 @x
@@ -143,7 +143,7 @@
 @y
 @ @<Show the current contents of a box@>=
 begin scan_register_num; fetch_box(p);
-@<Adjust |selector| based on |show_stream|@>
+@<Adjust |selector| based on |show_stream|@>@;
 begin_diagnostic;
 @z
 
@@ -153,13 +153,13 @@
 @y
 @ @<Show the current value of some parameter...@>=
 begin p:=the_toks;
-@<Adjust |selector| based on |show_stream|@>
+@<Adjust |selector| based on |show_stream|@>@;
 @z
 
 @x
 show_groups: begin begin_diagnostic; show_save_groups;
 @y
-show_groups: begin @<Adjust |selector| based on |show_stream|@>
+show_groups: begin @<Adjust |selector| based on |show_stream|@>@;
   begin_diagnostic; show_save_groups;
 @z
 
@@ -166,7 +166,7 @@
 @x
 show_ifs: begin begin_diagnostic; print_nl(""); print_ln;
 @y
-show_ifs: begin @<Adjust |selector| based on |show_stream|@>
+show_ifs: begin @<Adjust |selector| based on |show_stream|@>@;
   begin_diagnostic; print_nl(""); print_ln;
 @z