diff options
| author | N.N. <matju@users.sourceforge.net> | 2008-02-14 02:13:29 +0000 |
|---|---|---|
| committer | N.N. <matju@users.sourceforge.net> | 2008-02-14 02:13:29 +0000 |
| commit | 2244cccd4aad856d4a5ac765c47fe89da9ea7f72 (patch) | |
| tree | e1a95ad6d0908502138e770ccd415fa2a44e21d0 | |
| parent | 00f9ebd85a15218bc37ff6e3a3e67bcca18e91ec (diff) | |
speedup for recent Tcl 8.5 that doesn't have {expand} anymore
svn path=/trunk/; revision=9440
| -rw-r--r-- | desiredata/src/poe.tcl | 4 |
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} { |