diff src/bytecode.h @ 412:697ef44129c6 r21-2-14

Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents 74fd4e045ea6
children 11054d720c21
line wrap: on
line diff
--- a/src/bytecode.h	Mon Aug 13 11:19:22 2007 +0200
+++ b/src/bytecode.h	Mon Aug 13 11:20:41 2007 +0200
@@ -27,8 +27,8 @@
    Jon Reid: some changes for I18N3 (domain, etc), for 19.8.
  */
 
-#ifndef INCLUDED_bytecode_h_
-#define INCLUDED_bytecode_h_
+#ifndef _XEMACS_BYTECODE_H_
+#define _XEMACS_BYTECODE_H_
 
 /* Meanings of slots in a Lisp_Compiled_Function.
    Don't use these!  For backward compatibility only.  */
@@ -93,6 +93,7 @@
 				       Lisp_Compiled_Function)
 #define XSETCOMPILED_FUNCTION(x, p) XSETRECORD (x, p, compiled_function)
 #define COMPILED_FUNCTIONP(x) RECORDP (x, compiled_function)
+#define GC_COMPILED_FUNCTIONP(x) GC_RECORDP (x, compiled_function)
 #define CHECK_COMPILED_FUNCTION(x) CHECK_RECORD (x, compiled_function)
 #define CONCHECK_COMPILED_FUNCTION(x) CONCHECK_RECORD (x, compiled_function)
 
@@ -119,5 +120,5 @@
     neither     -                   : (*  559 0)  =   0 = 3530
 */
 
-#endif /* INCLUDED_bytecode_h_ */
+#endif /* _XEMACS_BYTECODE_H_ */