| # gensym.tcl - Generate new symbols. | |
| # Copyright (C) 1997 Cygnus Solutions. | |
| # Written by Tom Tromey <tromey@cygnus.com>. | |
| # Internal counter used to provide new symbol names. | |
| defvar GENSYM_counter 0 | |
| # Return a new "symbol". This proc hopes that nobody else decides to | |
| # use its prefix. | |
| proc gensym {} { | |
| global GENSYM_counter | |
| return __gensym_symbol_[incr GENSYM_counter] | |
| } |