/[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.18 by mjthomas, Mon Jul 7 04:53:14 2003 UTC revision 1.19 by camm, Sun Sep 14 02:43:07 2003 UTC
# Line 92  DEF_ORDINARY("%INIT",sSPinit,SI,""); Line 92  DEF_ORDINARY("%INIT",sSPinit,SI,"");
92    
93  void Lidentity(void);  void Lidentity(void);
94  void  void
95  init_cmpaux(void)  gcl_init_cmpaux(void)
96  {  {
97    
98    
# Line 429  char *s; Line 429  char *s;
429  #endif  #endif
430    
431  void  void
432  init_or_load1(void (*fn)(void),char *file)  gcl_init_or_load1(void (*fn)(void),char *file)
433  {int n=strlen(file);  {int n=strlen(file);
434   if (file[n-1]=='o')   if (file[n-1]=='o')
435     { object memory;     { object memory;
# Line 466  function.") Line 466  function.")
466    
467    int i;    int i;
468    
469    i=init_cmp_anon();    i=gcl_init_cmp_anon();
470    if (i<0)    if (i<0)
471      FEerror("No such anonymous function",0);      FEerror("No such anonymous function",0);
472    

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

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