Author: yamakenz Date: Wed Jul 11 03:22:24 2007 New Revision: 4702 Modified: trunk/scm/util.scm
Log: * scm/util.scm - (method-delegator-new): Optimize Modified: trunk/scm/util.scm ============================================================================== --- trunk/scm/util.scm (original) +++ trunk/scm/util.scm Wed Jul 11 03:22:24 2007 @@ -150,10 +150,8 @@ (define method-delegator-new (lambda (dest-getter method) - (lambda args - (let* ((self (car args)) - (dest (dest-getter self))) - (apply method (cons dest (cdr args))))))) + (lambda (self . args) + (apply method (cons (dest-getter self) args))))) (define safe-car (lambda (pair)
