Mercurial > hg > xemacs-beta

diff src/chartab.c @ 5120:d1247f3cc363 ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
latest work on lisp-object workspace; more changes eliminating LCRECORD in place of LISP_OBJECT; now compiles and runs.
author Ben Wing <ben@xemacs.org>
date Mon, 28 Dec 2009 01:15:52 -0600
parents e0db3c197671
children 623d57b7fbe8
line wrap: on
line diff
--- a/src/chartab.c	Sat Dec 26 21:22:48 2009 -0600
+++ b/src/chartab.c	Mon Dec 28 01:15:52 2009 -0600
@@ -474,7 +474,7 @@
       if (!EQ (ct->level1[i], Qnull_pointer) &&
 	  CHAR_TABLE_ENTRYP (ct->level1[i]) &&
 	  !OBJECT_DUMPED_P (ct->level1[1]))
-	FREE_LCRECORD (ct->level1[i]);
+	FREE_LISP_OBJECT (ct->level1[i]);
       ct->level1[i] = value;
     }
 #endif /* MULE */
@@ -1068,7 +1068,7 @@
 	  int lb = XCHARSET_LEADING_BYTE (range->charset) - MIN_LEADING_BYTE;
 	  if (CHAR_TABLE_ENTRYP (ct->level1[lb]) &&
 	      !OBJECT_DUMPED_P (ct->level1[lb]))
-	    FREE_LCRECORD (ct->level1[lb]);
+	    FREE_LISP_OBJECT (ct->level1[lb]);
 	  ct->level1[lb] = val;
 	}
       break;