Subversion Repositories or1k_old

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

}