Changeset 11342


Ignore:
Timestamp:
10/11/08 17:06:25 (13 years ago)
Author:
ehuelsmann
Message:

Closure.java cleanup round 10.

Patch by: Ville Voutilainen

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/j/src/org/armedbear/lisp/Closure.java

    r11339 r11342  
    404404  }
    405405   
    406   private final LispObject bindParametersAndExecute(int arityValue,
     406  private final LispObject bindParametersAndExecute(
    407407                                              Environment ext,
    408408                                              LispThread thread,
    … …  
    410410  throws ConditionThrowable
    411411  {
    412     if (arity != arityValue)
     412    if (arity != minArgs)
    413413      {
    414414        bindParameterDefaults(optionalParameters, ext, thread);
    … …  
    456456        Environment ext = new Environment(environment);
    457457        bindRequiredParameters(ext, thread, arg);
    458         return bindParametersAndExecute(minArgs, ext, thread,
     458        return bindParametersAndExecute(ext, thread,
    459459                                        lastSpecialBinding);
    460460      }
    … …  
    474474        Environment ext = new Environment(environment);
    475475        bindRequiredParameters(ext, thread, first, second);
    476         return bindParametersAndExecute(minArgs, ext, thread,
     476        return bindParametersAndExecute(ext, thread,
    477477                                        lastSpecialBinding);
    478478      }
    … …  
    493493        Environment ext = new Environment(environment);
    494494        bindRequiredParameters(ext, thread, first, second, third);
    495         return bindParametersAndExecute(minArgs, ext, thread,
     495        return bindParametersAndExecute(ext, thread,
    496496                                        lastSpecialBinding);
    497497      }
    … …  
    512512        Environment ext = new Environment(environment);
    513513        bindRequiredParameters(ext, thread, first, second, third, fourth);
    514         return bindParametersAndExecute(minArgs, ext, thread,
     514        return bindParametersAndExecute(ext, thread,
    515515                                        lastSpecialBinding);
    516516      }
    … …  
    533533        bindRequiredParameters(ext, thread, first, second, third, fourth,
    534534                               fifth);
    535         return bindParametersAndExecute(minArgs, ext, thread,
     535        return bindParametersAndExecute(ext, thread,
    536536                                        lastSpecialBinding);
    537537      }
    … …  
    554554        bindRequiredParameters(ext, thread, first, second, third, fourth,
    555555                               fifth, sixth);
    556         return bindParametersAndExecute(minArgs, ext, thread,
     556        return bindParametersAndExecute(ext, thread,
    557557                                        lastSpecialBinding);
    558558      }
    … …  
    577577        bindRequiredParameters(ext, thread, first, second, third, fourth,
    578578                               fifth, sixth, seventh);
    579         return bindParametersAndExecute(minArgs, ext, thread,
     579        return bindParametersAndExecute(ext, thread,
    580580                                        lastSpecialBinding);
    581581      }
    … …  
    602602        bindRequiredParameters(ext, thread, first, second, third, fourth,
    603603                               fifth, sixth, seventh, eighth);
    604         return bindParametersAndExecute(minArgs, ext, thread,
     604        return bindParametersAndExecute(ext, thread,
    605605                                        lastSpecialBinding);
    606606      }
Note: See TracChangeset for help on using the changeset viewer.