* parser.y (yybadtoken): Add missing cases for new token

types WORDS and WSPLICE.

2 files changed, 7 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index 2d3fc453..1ae8a0d2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2014-03-25  Kaz Kylheku  <kaz@kylheku.com>
 
+	* parser.y (yybadtoken): Add missing cases for new token
+	types WORDS and WSPLICE.
+
+2014-03-25  Kaz Kylheku  <kaz@kylheku.com>
+
 	Introducing word list literals.
 
 	* parser.l (WLIT): New exclusive start state.
diff --git a/parser.y b/parser.y
index aaa3d837..f9931541 100644
--- a/parser.y
+++ b/parser.y
@@ -1343,6 +1343,8 @@ void yybadtoken(int tok, val context)
   case HASH_BACKSLASH: problem = lit("#\\"); break;
   case HASH_SLASH:     problem = lit("#/"); break;
   case HASH_H:         problem = lit("#H"); break;
+  case WORDS:   problem = lit("#\""); break;
+  case WSPLICE: problem = lit("#*\""); break;
   }
 
   if (problem != 0)