# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1152710511 0
# Node ID 2d05f598fa85b1fb371bc379b807e945cc050732
# Parent  9214bbc95872b8aa68df3198d8aa3d27fc64d207
(check_syntax_table): Use CHECK_TYPE.

diff -r 9214bbc95872 -r 2d05f598fa85 src/syntax.c
--- a/src/syntax.c	Wed Jul 12 13:21:39 2006 +0000
+++ b/src/syntax.c	Wed Jul 12 13:21:51 2006 +0000
@@ -749,9 +749,8 @@
 check_syntax_table (obj)
      Lisp_Object obj;
 {
-  if (!(CHAR_TABLE_P (obj)
-	&& EQ (XCHAR_TABLE (obj)->purpose, Qsyntax_table)))
-    wrong_type_argument (Qsyntax_table_p, obj);
+  CHECK_TYPE (CHAR_TABLE_P (obj) && EQ (XCHAR_TABLE (obj)->purpose, Qsyntax_table),
+	      Qsyntax_table_p, obj);
 }
 
 DEFUN ("syntax-table", Fsyntax_table, Ssyntax_table, 0, 0, 0,