From: Konstantin K. <ko...@pr...> - 2010-10-21 21:04:41
|
On Thu, Oct 21, 2010 at 12:42:19PM -0700, Jeff Hobbs wrote: [...] > > proc gensym {{stub {}}} { > > if {$stub eq ""} { set stub gensym } > > return $stub[incr ::tcl::Uniq] > > } > > Alex was decidedly thinking better than I today, and pointed out: > > proc gensym {stub gensym} { return $stub[incr ::tcl::Uniq] } I think it was meant to be proc gensym {{stub gensym}} { return $stub[incr ::tcl::Uniq] } |