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

Diff of /gcl/o/reference.c

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

revision 1.9 by camm, Wed Sep 7 02:57:37 2005 UTC revision 1.10 by camm, Thu Oct 6 20:30:08 2005 UTC
# Line 149  FFN(Ffunction)(object form) Line 149  FFN(Ffunction)(object form)
149                          vs_base = vs_top;                          vs_base = vs_top;
150                          vs_push(MMcaddr(fd));                          vs_push(MMcaddr(fd));
151                  }                  }
152          } else if (type_of(fun) == t_cons && MMcar(fun) == sLlambda) {          } else if (consp(fun) && MMcar(fun) == sLlambda) {
153                  vs_base = vs_top;                  vs_base = vs_top;
154                  vs_push(MMcdr(fun));                  vs_push(MMcdr(fun));
155                  vs_base[0] = MMcons(lex_env[2], vs_base[0]);                  vs_base[0] = MMcons(lex_env[2], vs_base[0]);

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

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