comparison src/eval.c @ 4982:3c3c1d139863

Automatic merge
author Ben Wing <ben@xemacs.org>
date Fri, 05 Feb 2010 11:25:00 -0600
parents 4aebb0131297 16112448d484
children ae48681c47fa
comparison
equal deleted inserted replaced
4981:4aebb0131297 4982:3c3c1d139863
6807 } 6807 }
6808 6808
6809 static Lisp_Object 6809 static Lisp_Object
6810 free_pointer (Lisp_Object opaque) 6810 free_pointer (Lisp_Object opaque)
6811 { 6811 {
6812 xfree (get_opaque_ptr (opaque), void *); 6812 xfree (get_opaque_ptr (opaque));
6813 free_opaque_ptr (opaque); 6813 free_opaque_ptr (opaque);
6814 return Qnil; 6814 return Qnil;
6815 } 6815 }
6816 6816
6817 /* Establish an unwind-protect which will free the specified block. 6817 /* Establish an unwind-protect which will free the specified block.