RE: FW: error exmh 2.8.0 04/21/2012

Try something like this
if {tcl_version < 8.5} {
  proc lassign {values args} {
    uplevel 1 [list foreach $args $values break]
  }
}

--
Brent


-----Original Message-----
From: [email protected] [mailto:[email protected]] On Behalf Of [email protected]
Sent: Tuesday, April 24, 2012 2:32 PM
To: Discussion list for EXMH users
Subject: Re: FW: error exmh 2.8.0 04/21/2012

On Tue, 24 Apr 2012 20:24:32 -0000, "Welch, Brent" said:

> The best, long term solution is to convert to "lassign" as defined in Tcl 8.5,
> and if there is an earlier version of Tcl in use, just define an lassign that
> matches the 8.5 semantics and argument lists.

I considered that, but couldn't figure out how to say:

if ($tcl_version < 8.5) {
	<<define function lassign on the fly here>>
}