18 lines
478 B
Factor
18 lines
478 B
Factor
! Copyright (C) 2004, 2005 Slava Pestov.
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
IN: words USING: kernel math namespaces strings unparser ;
|
|
|
|
SYMBOL: gensym-count
|
|
|
|
: (gensym) ( -- name )
|
|
"G:" global [
|
|
gensym-count [ 1 + dup ] change
|
|
] bind unparse cat2 ;
|
|
|
|
: gensym ( -- word )
|
|
#! Return a word that is distinct from every other word, and
|
|
#! is not contained in any vocabulary.
|
|
(gensym) f (create) ;
|
|
|
|
global [ 0 gensym-count set ] bind
|