comparison src/bytecode.c @ 4962:e813cf16c015

merge
author Ben Wing <ben@xemacs.org>
date Mon, 01 Feb 2010 05:29:05 -0600
parents db2db229ee82 6ef8256a020a
children 48b63cd88a21
comparison
equal deleted inserted replaced
4961:b90f8cf474e0 4962:e813cf16c015
2297 /* tail-recurse on constants */ 2297 /* tail-recurse on constants */
2298 return f->constants; 2298 return f->constants;
2299 } 2299 }
2300 2300
2301 static int 2301 static int
2302 compiled_function_equal (Lisp_Object obj1, Lisp_Object obj2, int depth) 2302 compiled_function_equal (Lisp_Object obj1, Lisp_Object obj2, int depth,
2303 int UNUSED (foldcase))
2303 { 2304 {
2304 Lisp_Compiled_Function *f1 = XCOMPILED_FUNCTION (obj1); 2305 Lisp_Compiled_Function *f1 = XCOMPILED_FUNCTION (obj1);
2305 Lisp_Compiled_Function *f2 = XCOMPILED_FUNCTION (obj2); 2306 Lisp_Compiled_Function *f2 = XCOMPILED_FUNCTION (obj2);
2306 return 2307 return
2307 (f1->flags.documentationp == f2->flags.documentationp && 2308 (f1->flags.documentationp == f2->flags.documentationp &&