# 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] | |
} |