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

Diff of /gcl/o/eval.c

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

revision 1.22 by camm, Fri Jul 8 06:11:36 2005 UTC revision 1.23 by camm, Wed Sep 7 02:53:54 2005 UTC
# Line 225  funcall(object fun) Line 225  funcall(object fun)
225                  FEundefined_function(fun);                  FEundefined_function(fun);
226                }                }
227    
228            case t_ifun:
229              {object x = fun->ifn.ifn_self;
230              if (x) { fun = x; goto TOP;}
231              else
232                FEundefined_function(fun);
233              }
234              
235          case t_cons:          case t_cons:
236                  break;                  break;
237    
# Line 898  EVAL_ARGS: Line 905  EVAL_ARGS:
905            top[0] = ans;            top[0] = ans;
906            vs_top = ++top;            vs_top = ++top;
907            form = MMcdr(form);}            form = MMcdr(form);}
908            n =top - base; /* number of args */          n =top - base; /* number of args */
909          if (Vapplyhook->s.s_dbind != Cnil) {          if (Vapplyhook->s.s_dbind != Cnil) {
910            base[0]= (object)n;            base[0]= (object)n;
911            base[0] = c_apply_n(list,n+1,base);            base[0] = c_apply_n(list,n+1,base);

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

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