Mercurial > hg > xemacs-beta
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 && |