/[gcl]/gcl/o/cmpaux.c
ViewVC logotype

Diff of /gcl/o/cmpaux.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.26 by camm, Thu Sep 29 17:57:27 2005 UTC revision 1.27 by camm, Thu Oct 6 20:30:08 2005 UTC
# Line 323  call_init(int init_address, object memor Line 323  call_init(int init_address, object memor
323   VERIFY_INIT   VERIFY_INIT
324  #endif  #endif
325        
326   if (type_of(form)==t_cons &&   if (consp(form) &&
327       form->c.c_car == sSPinit)       form->c.c_car == sSPinit)
328     {bds_bind(sSPinit,fasl_vec);     {bds_bind(sSPinit,fasl_vec);
329      bds_bind(sSPmemory,memory);      bds_bind(sSPmemory,memory);

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26