 |
YAP 7.1.0
|
Go to the documentation of this file.
28:-
dynamic gensym_key/2.
32 assert(gensym_key(
Key,
0) ).
35 retract(gensym_key(
Key,
Id)),
retract,
36 atomic_concat(
Key,
Id,
New),
38 assert(gensym_key(
Key,
NId)).
40 atomic_concat(
Atom,
0,
New),
41 assert(gensym_key(
Atom,
1)).