diff src/sunfns.c @ 71842:9214bbc95872

(sun_item_create): Use CHECK_LIST_CONS.
author Kim F. Storm <storm@cua.dk>
date Wed, 12 Jul 2006 13:21:39 +0000
parents 3bd95f4f2941
children 3d45362f1d38 8a8e69664178
line wrap: on
line diff
--- a/src/sunfns.c	Wed Jul 12 13:20:32 2006 +0000
+++ b/src/sunfns.c	Wed Jul 12 13:21:39 2006 +0000
@@ -363,7 +363,7 @@
   Lisp_Object String;
   Lisp_Object Value;
 
-  if (!CONSP(Pair)) wrong_type_argument(Qlistp, Pair);
+  CHECK_LIST_CONS (Pair, Pair);
   String = Fcar(Pair);
   CHECK_STRING(String);
   Value = Fcdr(Pair);