rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #1808 from triska/gensym

Browse Source 
gensym-related improvement and correction
This commit is contained in:
Mark Thom
2023-05-16 15:55:39 -06:00
committed by GitHub
parent f7d9237bb9 021c01dfd0
commit c71b8e05f0
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/lib/gensym.pl
View File

@@ -19,14 +19,14 @@ gensym(Base, Unique) :-
must_be(var, Unique), must_be(var, Unique),
atom_si(Base), atom_si(Base),
gensym_key(Base, BaseKey), gensym_key(Base, BaseKey),
( bb_get(BaseKey, UniqueID0) -> ( bb_get(BaseKey, UniqueID0) -> true
UniqueID is UniqueID0 + 1, ; UniqueID0 = 0
bb_put(BaseKey, UniqueID), ),
append_id(Base, UniqueID, Unique) UniqueID is UniqueID0 + 1,
; bb_put(BaseKey, 1), append_id(Base, UniqueID, Unique),
append_id(Base, 1, Unique) bb_put(BaseKey, UniqueID).
).
reset_gensym(Base) :- reset_gensym(Base) :-
atom_si(Base), atom_si(Base),
bb_put(Base, 0). gensym_key(Base, BaseKey),
bb_put(BaseKey, 0).