Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11218
Modified Files: Tag: desiredata poe.tcl Log Message: compatibility with newer Tcl 8.5
Index: poe.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/poe.tcl,v retrieving revision 1.1.2.2.2.22 retrieving revision 1.1.2.2.2.23 diff -C2 -d -r1.1.2.2.2.22 -r1.1.2.2.2.23 *** poe.tcl 13 Aug 2007 05:25:52 -0000 1.1.2.2.2.22 --- poe.tcl 18 Aug 2007 08:21:24 -0000 1.1.2.2.2.23 *************** *** 36,39 **** --- 36,40 ---- set _(Class:_class) Class set _(Class:_super) {Thing} + set have_expand [expr ![catch {set a {foo bar}; list {expand}$a}]]
proc proc* {name args body} { *************** *** 116,120 **** }
! if {$tcl_version >= 8.5} { set dispatch { set i 0; set class $::_($self:_class) --- 117,121 ---- }
! if {$have_expand} { set dispatch { set i 0; set class $::_($self:_class) *************** *** 140,144 **** if {[llength $methods] < $i} {error "no more supermethods"} } ! if {$tcl_version >= 8.5} { append super {[lindex $methods $i] $self {expand}$args} } else { --- 141,145 ---- if {[llength $methods] < $i} {error "no more supermethods"} } ! if {$have_expand} { append super {[lindex $methods $i] $self {expand}$args} } else {