13 lines
378 B
Tcl
13 lines
378 B
Tcl
# 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]
|
|
}
|