# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1050615890 0
# Node ID 804e6ed7ce2ce449ff783e231e81411dd35fdf34
# Parent  589192191b6d536d71565c94e5cbb6fdf15f717e
(Fdefine_abbrev_table): Use XCAR, XCDR.

diff -r 589192191b6d -r 804e6ed7ce2c src/abbrev.c
--- a/src/abbrev.c	Thu Apr 17 21:21:47 2003 +0000
+++ b/src/abbrev.c	Thu Apr 17 21:44:50 2003 +0000
@@ -592,9 +592,9 @@
     }
   CHECK_VECTOR (table);
 
-  for (; !NILP (definitions); definitions = Fcdr (definitions))
+  for (; CONSP (definitions); definitions = XCDR (definitions))
     {
-      elt = Fcar (definitions);
+      elt = XCAR (definitions);
       name  = Fcar (elt);	elt = Fcdr (elt);
       exp   = Fcar (elt);	elt = Fcdr (elt);
       hook  = Fcar (elt);	elt = Fcdr (elt);