229 |
top[0] = MMcons(lex[1], top[0]); |
top[0] = MMcons(lex[1], top[0]); |
230 |
top[0] = MMcons(lex[0], top[0]); |
top[0] = MMcons(lex[0], top[0]); |
231 |
top[0] = MMcons(sLlambda_block_closure, top[0]); |
top[0] = MMcons(sLlambda_block_closure, top[0]); |
232 |
|
{ |
233 |
|
object x=alloc_object(t_ifun); |
234 |
|
x->ifn.ifn_self=top[0]; |
235 |
|
top[0]=x; |
236 |
|
} |
237 |
lex_fun_bind(MMcar(def), top[0]); |
lex_fun_bind(MMcar(def), top[0]); |
238 |
def_list = MMcdr(def_list); |
def_list = MMcdr(def_list); |
239 |
} |
} |
270 |
top[1] = MMcons(top[0], top[1]); |
top[1] = MMcons(top[0], top[1]); |
271 |
top[0] = MMcons(lex[0], top[0]); |
top[0] = MMcons(lex[0], top[0]); |
272 |
top[0] = MMcons(sLlambda_block_closure, top[0]); |
top[0] = MMcons(sLlambda_block_closure, top[0]); |
273 |
|
{ |
274 |
|
object x=alloc_object(t_ifun); |
275 |
|
x->ifn.ifn_self=top[0]; |
276 |
|
top[0]=x; |
277 |
|
} |
278 |
lex_fun_bind(MMcar(def), top[0]); |
lex_fun_bind(MMcar(def), top[0]); |
279 |
def_list = MMcdr(def_list); |
def_list = MMcdr(def_list); |
280 |
} |
} |