Revision: 9440 http://pure-data.svn.sourceforge.net/pure-data/?rev=9440&view=rev Author: matju Date: 2008-02-13 18:13:29 -0800 (Wed, 13 Feb 2008)
Log Message: ----------- speedup for recent Tcl 8.5 that doesn't have {expand} anymore
Modified Paths: -------------- trunk/desiredata/src/poe.tcl
Modified: trunk/desiredata/src/poe.tcl =================================================================== --- trunk/desiredata/src/poe.tcl 2008-02-13 23:59:11 UTC (rev 9439) +++ trunk/desiredata/src/poe.tcl 2008-02-14 02:13:29 UTC (rev 9440) @@ -2,7 +2,7 @@ #----------------------------------------------------------------# # POETCL # -# Copyright (c) 2005,2006 by Mathieu Bouchard +# Copyright (c) 2005,2006,2007,2008 by Mathieu Bouchard # # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License @@ -133,7 +133,7 @@ set dispatch { set i 0; set class $::_($self:_class) if {[catch {set methods $::__($class:$selector)}]} {set methods [cache_method $class $selector]} - eval [concat [list [lindex $methods 0] $self] $args] + [lindex $methods 0] $self {*}$args } } proc setup_dispatcher {self} {
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.