web2c/luatexdir: sync with the upstream

git-svn-id: svn://tug.org/texlive/trunk@40074 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 15 insertions, 6 deletions

diff --git a/Build/source/texk/web2c/luatexdir/tex/textoken.w b/Build/source/texk/web2c/luatexdir/tex/textoken.w
index 41c9293336a..9ac21635b3a 100644
--- a/Build/source/texk/web2c/luatexdir/tex/textoken.w
+++ b/Build/source/texk/web2c/luatexdir/tex/textoken.w
@@ -514,15 +514,24 @@ boolean scan_keyword(const char *s)
             store_new_token(cur_tok);
             k++;
         } else if ((cur_cmd != spacer_cmd) || (p != backup_head)) {
+            /*
+                crashes on some alignments:
+
+                if (p != backup_head) {
+                    q = get_avail();
+                    token_info(q) = cur_tok;
+                    token_link(q) = null;
+                    token_link(p) = q;
+                    begin_token_list(token_link(backup_head), backed_up);
+                } else {
+                    back_input();
+                }
+            */
+            back_input();
             if (p != backup_head) {
-                q = get_avail();
-                token_info(q) = cur_tok;
-                token_link(q) = null;
-                token_link(p) = q;
                 begin_token_list(token_link(backup_head), backed_up);
-            } else {
-                back_input();
             }
+            /*  */
             cur_cs = save_cur_cs;
             return false;
         }