:more db stuff

2018-06-28 12:48:29 +01:00
parent d3370ee141
commit 6c1d3d1a95
18 changed files with 122 additions and 71 deletions
--- a/library/gensym.yap
+++ b/library/gensym.yap
@@ -8,6 +8,7 @@
 * 
 */
 :- module(gensym, [
+	      init_gensym/1,
 	gensym/2,
 	reset_gensym/1,
 	reset_gensym/0
@@ -26,6 +27,9 @@

 :- dynamic gensym_key/2.

+init_gensym(Key) :-
+    assert(gensym_key(Atom,0) ).
+
 gensym(Atom, New) :-
 	retract(gensym_key(Atom,Id)), !,
 	atomic_concat(Atom,Id,New),