texlive[67970] Build/source/texk/web2c/pdftexdir: pdftex.web: minor

[commits+hironobu at tug.org]

Revision: 67970
          http://tug.org/svn/texlive?view=revision&revision=67970
Author:   hironobu
Date:     2023-08-18 17:47:03 +0200 (Fri, 18 Aug 2023)
Log Message:
-----------
pdftex.web: minor cleanup

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/pdftexdir/ChangeLog
    trunk/Build/source/texk/web2c/pdftexdir/pdftex.web

Modified: trunk/Build/source/texk/web2c/pdftexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/pdftexdir/ChangeLog	2023-08-18 15:42:55 UTC (rev 67969)
+++ trunk/Build/source/texk/web2c/pdftexdir/ChangeLog	2023-08-18 15:47:03 UTC (rev 67970)
@@ -1,3 +1,7 @@
+2023-08-18  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
+
+	* pdftex.web: minor cleanup (sync with etex.ch r24155)
+
 2023-03-29  TANAKA Takuji  <ttk at t-lab.opal.ne.jp>
 
 	* wcfname.test:

Modified: trunk/Build/source/texk/web2c/pdftexdir/pdftex.web
===================================================================
--- trunk/Build/source/texk/web2c/pdftexdir/pdftex.web	2023-08-18 15:42:55 UTC (rev 67969)
+++ trunk/Build/source/texk/web2c/pdftexdir/pdftex.web	2023-08-18 15:47:03 UTC (rev 67970)
@@ -6531,11 +6531,11 @@
 eq_type(frozen_dont_expand):=dont_expand;
 text(frozen_dont_expand):="notexpanded:";
 @.notexpanded:@>
-
 eq_type(frozen_primitive):=ignore_spaces;
 equiv(frozen_primitive):=1;
 eq_level(frozen_primitive):=level_one;
 text(frozen_primitive):="pdfprimitive";
+
 @ Here is the subroutine that searches the hash table for an identifier
 that matches a given string of length |l>1| appearing in |buffer[j..
 (j+l-1)]|. If the identifier is found, the corresponding hash table address
@@ -6654,7 +6654,6 @@
   while h>=prim_prime do h:=h-prim_prime;
   end
 
-
 @ Single-character control sequences do not need to be looked up in a hash
 table, since we can use the character code itself as a direct address.
 The procedure |print_cs| prints the name of a control sequence, given
@@ -8048,10 +8047,9 @@
 @.*\relax@>
     print_char(">");
     end
-else if index<>in_open then {input from a pseudo file}
-  begin print_nl("l."); print_int(line_stack[index+1]);
-  end
-else  begin print_nl("l."); print_int(line);
+else  begin print_nl("l.");
+  if index=in_open then print_int(line)
+  else print_int(line_stack[index+1]); {input from a pseudo file}
   end;
 print_char(" ")