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

Diff of /gcl/o/error.c

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

revision 1.25 by camm, Sun Sep 18 02:48:58 2005 UTC revision 1.26 by camm, Thu Oct 6 20:30:08 2005 UTC
# Line 61  ihs_function_name(object x) Line 61  ihs_function_name(object x)
61                          return(sLlambda_closure);                          return(sLlambda_closure);
62                  if (y == sLlambda_block || y == sSlambda_block_expanded) {                  if (y == sLlambda_block || y == sSlambda_block_expanded) {
63                          x = x->c.c_cdr;                          x = x->c.c_cdr;
64                          if (type_of(x) != t_cons)                          if (!consp(x))
65                                  return(sLlambda_block);                                  return(sLlambda_block);
66                          return(x->c.c_car);                          return(x->c.c_car);
67                  }                  }
68                  if (y == sLlambda_block_closure) {                  if (y == sLlambda_block_closure) {
69                          x = x->c.c_cdr;                          x = x->c.c_cdr;
70                          if (type_of(x) != t_cons)                          if (!consp(x))
71                                  return(sLlambda_block_closure);                                  return(sLlambda_block_closure);
72                          x = x->c.c_cdr;                          x = x->c.c_cdr;
73                          if (type_of(x) != t_cons)                          if (!consp(x))
74                                  return(sLlambda_block_closure);                                  return(sLlambda_block_closure);
75                          x = x->c.c_cdr;                          x = x->c.c_cdr;
76                          if (type_of(x) != t_cons)                          if (!consp(x))
77                                  return(sLlambda_block_closure);                                  return(sLlambda_block_closure);
78                          x = x->c.c_cdr;                          x = x->c.c_cdr;
79                          if (type_of(x) != t_cons)                          if (!consp(x))
80                                  return(sLlambda_block_closure);                                  return(sLlambda_block_closure);
81                          return(x->c.c_car);                          return(x->c.c_car);
82                  }                  }

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

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