/[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.23 by camm, Tue Aug 9 00:48:06 2005 UTC revision 1.24 by camm, Wed Sep 7 02:53:40 2005 UTC
# Line 50  ihs_function_name(object x) Line 50  ihs_function_name(object x)
50          case t_symbol:          case t_symbol:
51                  return(x);                  return(x);
52    
53            case t_ifun:
54              x=x->ifn.ifn_self;
55              /*pass through*/
56          case t_cons:          case t_cons:
57                  y = x->c.c_car;                  y = x->c.c_car;
58                  if (y == sLlambda)                  if (y == sLlambda)

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

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