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

Diff of /gcl/o/let.c

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

revision 1.8 by camm, Thu Nov 6 16:08:09 2003 UTC revision 1.9 by camm, Wed Sep 7 02:54:30 2005 UTC
# Line 229  is an illegal function definition in FLE Line 229  is an illegal function definition in FLE
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          }          }
# Line 265  is an illegal function definition in LAB Line 270  is an illegal function definition in LAB
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          }          }

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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