From 2244cccd4aad856d4a5ac765c47fe89da9ea7f72 Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Thu, 14 Feb 2008 02:13:29 +0000
Subject: speedup for recent Tcl 8.5 that doesn't have {expand} anymore

svn path=/trunk/; revision=9440
---
 desiredata/src/poe.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'desiredata/src')

diff --git a/desiredata/src/poe.tcl b/desiredata/src/poe.tcl
index 68ec96fc..ab0cbc48 100644
--- a/desiredata/src/poe.tcl
+++ b/desiredata/src/poe.tcl
@@ -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 @@ if {$have_expand} {
 	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} {
-- 
cgit v1.2.1