[PD-cvs] SF.net SVN: pure-data: [9440] trunk/desiredata/src/poe.tcl

[matju at users.sourceforge.net]

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.