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

14
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
; UniqueID0 = 0
),
UniqueID is UniqueID0 + 1, UniqueID is UniqueID0 + 1,
bb_put(BaseKey, UniqueID), append_id(Base, UniqueID, Unique),
append_id(Base, UniqueID, Unique) bb_put(BaseKey, UniqueID).
; bb_put(BaseKey, 1),
append_id(Base, 1, Unique)
).
reset_gensym(Base) :- reset_gensym(Base) :-
atom_si(Base), atom_si(Base),
bb_put(Base, 0). gensym_key(Base, BaseKey),
bb_put(BaseKey, 0).