/* -*-C-*-
-$Id: c.h,v 1.5 1993/11/16 02:25:15 gjr Exp $
+$Id: c.h,v 1.6 1993/11/16 02:34:33 gjr Exp $
Copyright (c) 1992-1993 Massachusetts Institute of Technology
#define FIRST_MANIFEST_CLOSURE_ENTRY(scan) \
(((COMPILED_ENTRY_OFFSET_WORD (((SCHEME_OBJECT *) (scan)) + 1)) == 0) \
- ? (((SCHEME_OBJECT *) (scan)) + 2) \
- : (((SCHEME_OBJECT *) (scan)) + 1))
+ ? ((char *) (((SCHEME_OBJECT *) (scan)) + 2)) \
+ : ((char *) (((SCHEME_OBJECT *) (scan)) + 1)))
\f
/* Trampolines are implemented as tiny compiled code blocks that
invoke the constant C procedure indexed by the number 0.