Changeset 11342
- Timestamp:
- 10/11/08 17:06:25 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/Closure.java
r11339 r11342 404 404 } 405 405 406 private final LispObject bindParametersAndExecute( int arityValue,406 private final LispObject bindParametersAndExecute( 407 407 Environment ext, 408 408 LispThread thread, … … 410 410 throws ConditionThrowable 411 411 { 412 if (arity != arityValue)412 if (arity != minArgs) 413 413 { 414 414 bindParameterDefaults(optionalParameters, ext, thread); … … 456 456 Environment ext = new Environment(environment); 457 457 bindRequiredParameters(ext, thread, arg); 458 return bindParametersAndExecute( minArgs,ext, thread,458 return bindParametersAndExecute(ext, thread, 459 459 lastSpecialBinding); 460 460 } … … 474 474 Environment ext = new Environment(environment); 475 475 bindRequiredParameters(ext, thread, first, second); 476 return bindParametersAndExecute( minArgs,ext, thread,476 return bindParametersAndExecute(ext, thread, 477 477 lastSpecialBinding); 478 478 } … … 493 493 Environment ext = new Environment(environment); 494 494 bindRequiredParameters(ext, thread, first, second, third); 495 return bindParametersAndExecute( minArgs,ext, thread,495 return bindParametersAndExecute(ext, thread, 496 496 lastSpecialBinding); 497 497 } … … 512 512 Environment ext = new Environment(environment); 513 513 bindRequiredParameters(ext, thread, first, second, third, fourth); 514 return bindParametersAndExecute( minArgs,ext, thread,514 return bindParametersAndExecute(ext, thread, 515 515 lastSpecialBinding); 516 516 } … … 533 533 bindRequiredParameters(ext, thread, first, second, third, fourth, 534 534 fifth); 535 return bindParametersAndExecute( minArgs,ext, thread,535 return bindParametersAndExecute(ext, thread, 536 536 lastSpecialBinding); 537 537 } … … 554 554 bindRequiredParameters(ext, thread, first, second, third, fourth, 555 555 fifth, sixth); 556 return bindParametersAndExecute( minArgs,ext, thread,556 return bindParametersAndExecute(ext, thread, 557 557 lastSpecialBinding); 558 558 } … … 577 577 bindRequiredParameters(ext, thread, first, second, third, fourth, 578 578 fifth, sixth, seventh); 579 return bindParametersAndExecute( minArgs,ext, thread,579 return bindParametersAndExecute(ext, thread, 580 580 lastSpecialBinding); 581 581 } … … 602 602 bindRequiredParameters(ext, thread, first, second, third, fourth, 603 603 fifth, sixth, seventh, eighth); 604 return bindParametersAndExecute( minArgs,ext, thread,604 return bindParametersAndExecute(ext, thread, 605 605 lastSpecialBinding); 606 606 }
Note: See TracChangeset
for help on using the changeset viewer.