aboutsummaryrefslogtreecommitdiff
path: root/desiredata
diff options
context:
space:
mode:
authorN.N. <matju@users.sourceforge.net>2008-02-14 02:13:29 +0000
committerN.N. <matju@users.sourceforge.net>2008-02-14 02:13:29 +0000
commit2244cccd4aad856d4a5ac765c47fe89da9ea7f72 (patch)
treee1a95ad6d0908502138e770ccd415fa2a44e21d0 /desiredata
parent00f9ebd85a15218bc37ff6e3a3e67bcca18e91ec (diff)
speedup for recent Tcl 8.5 that doesn't have {expand} anymore
svn path=/trunk/; revision=9440
Diffstat (limited to 'desiredata')
-rw-r--r--desiredata/src/poe.tcl4
1 files changed, 2 insertions, 2 deletions
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} {