* parser.y (yybadtoken): Handle HASH_H.

2 files changed, 5 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index acb32b2a..a6af113f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2013-12-17  Kaz Kylheku  <kaz@kylheku.com>
 
+	* parser.y (yybadtoken): Handle HASH_H.
+
+2013-12-17  Kaz Kylheku  <kaz@kylheku.com>
+
 	* eval.c (op_defvar): Fix the semantics to be similar to Common Lisp:
 	no effect if the variable already exists.
 
diff --git a/parser.y b/parser.y
index a3f28079..8e7577ee 100644
--- a/parser.y
+++ b/parser.y
@@ -1193,6 +1193,7 @@ void yybadtoken(int tok, val context)
   case DOTDOT: problem = lit(".."); break;
   case HASH_BACKSLASH: problem = lit("#\\"); break;
   case HASH_SLASH:     problem = lit("#/"); break;
+  case HASH_H:         problem = lit("#H"); break;
   }
 
   if (problem != 0)