blob: a2dbdd672bfd056efd07b8343f0b19e4fd9f6e2c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
# 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]
}
|
