texlive[43475] Build/source/texk/web2c/ptexdir: ptex-base.ch: Fix a

[commits+kakuto at tug.org]

Revision: 43475
          http://tug.org/svn/texlive?view=revision&revision=43475
Author:   kakuto
Date:     2017-03-12 22:31:16 +0100 (Sun, 12 Mar 2017)
Log Message:
-----------
ptex-base.ch: Fix a typo

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ptexdir/ChangeLog
    trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch

Modified: trunk/Build/source/texk/web2c/ptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2017-03-12 09:57:06 UTC (rev 43474)
+++ trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2017-03-12 21:31:16 UTC (rev 43475)
@@ -1,3 +1,8 @@
+2017-03-12  Akira Kakuto  <kakuto at fuk.kindai.ac.jp>
+
+	* ptex-base.ch: Fix a typo pointed out at
+	https://github.com/clerkma/ptex-ng/issues/19.
+
 2017-02-05  TANAKA Takuji  <ttk at t-lab.opal.ne.jp>
 
 	* ppltotf.ch: Expand the limit of glue/kern and kern tables.

Modified: trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2017-03-12 09:57:06 UTC (rev 43474)
+++ trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2017-03-12 21:31:16 UTC (rev 43475)
@@ -554,7 +554,7 @@
 @d penalty_node=12 {|type| of a penalty node}
 @y
 @d penalty_node=14 {|type| of a penalty node}
- at d widow_pena=1 {|subtype| of penalty nodes from \.{\\jchrwidowpenalty}}
+ at d widow_pena=1 {|subtype| of penalty nodes from \.{\\jcharwidowpenalty}}
 @d kinsoku_pena=2 {|subtype| of penalty nodes from kinsoku}
 @z
 
@@ -672,7 +672,7 @@
 @y
 @ @<Display penalty |p|@>=
 begin print_esc("penalty "); print_int(penalty(p));
-if subtype(p)=widow_pena then print("(for \jchrwidowpenalty)")
+if subtype(p)=widow_pena then print("(for \jcharwidowpenalty)")
 else if subtype(p)=kinsoku_pena then print("(for kinsoku)");
 end
 @z