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 |
} |
} |