Parent Directory | Revision Log | 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) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |