texlive[54985] Build/source/texk/web2c/tex.ch: Make TeX TeXable

[commits+ascherer at tug.org]

Revision: 54985
          http://tug.org/svn/texlive?view=revision&revision=54985
Author:   ascherer
Date:     2020-05-03 15:50:13 +0200 (Sun, 03 May 2020)
Log Message:
-----------
Make TeX TeXable again.

Commented Pascal code marked as 'Code in TeX part'.

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

Modified: trunk/Build/source/texk/web2c/tex.ch
===================================================================
--- trunk/Build/source/texk/web2c/tex.ch	2020-05-03 13:36:13 UTC (rev 54984)
+++ trunk/Build/source/texk/web2c/tex.ch	2020-05-03 13:50:13 UTC (rev 54985)
@@ -1959,7 +1959,7 @@
   cur_cs := warning_index; {for possible runaway error}
   {mimick |call_func| from pdfTeX}
   if scan_toks(false, true) <> 0 then do_nothing; {actually do the scanning}
-  {s := tokens_to_string(def_ref);}
+  {|s := tokens_to_string(def_ref);|}
   old_setting := selector; selector:=new_string;
   show_token_list(link(def_ref),null,pool_size-pool_ptr);
   selector := old_setting;