diff options
Diffstat (limited to 'Build/source/texk/web2c/weav-twill.ch')
-rw-r--r-- | Build/source/texk/web2c/weav-twill.ch | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/Build/source/texk/web2c/weav-twill.ch b/Build/source/texk/web2c/weav-twill.ch index cf8a96996be..b530b9cdd6d 100644 --- a/Build/source/texk/web2c/weav-twill.ch +++ b/Build/source/texk/web2c/weav-twill.ch @@ -427,15 +427,15 @@ Section 124. @.\\input webmac@> @.webmac@> @y -`\.{\\input twimac}'. -@.\\input twimac@> -@.twimac@> +`\.{\\input twimac-web}'. +@.\\input twimac-web@> +@.twimac-web@> @z @x 2204c2367 out_ptr:=1; out_line:=1; out_buf[1]:="c"; write(tex_file,'\input webma'); @y -out_ptr:=1; out_line:=1; out_buf[1]:="c"; write(tex_file,'\input twima'); +out_ptr:=1; out_line:=1; out_buf[1]:="b"; write(tex_file,'\input twimac-we'); @z Section 125. @@ -497,6 +497,14 @@ Section 133. end; @z +Section 146. + +@x 2888c... +@ Token lists in |@!tok_mem| are composed of the following kinds of +@y +@ Token lists in |tok_mem| are composed of the following kinds of +@z + Section 183. @x 3522a3702 @@ -694,7 +702,7 @@ and sets |next_control| to the following token. @<Functions |scan_const| and |scan_exp|@>= function scan_const:integer; label done; -var radix,accum,p:integer; +var radix,@!accum,p:integer; begin if next_control=string then begin accum:=buffer[id_first+1]; next_control:=get_next; goto done; end @@ -732,7 +740,7 @@ subroutine, which doesn't complain about certain syntactic errors. @<Functions |scan_const| and |scan_exp|@>= function scan_exp:integer; label done; -var accum,s:integer; +var @!accum,s:integer; begin if sign(next_control) then accum:=0 else accum:=scan_const; loop begin if not sign(next_control) then goto done; |