sforman/Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Retract previous definitions before asserting new ones.

Browse Source
This commit is contained in:
Simon Forman
2019-07-15 16:01:59 -07:00
parent 4fefc04da3
commit ee395e91f1
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
thun/thun.pl
+3 -3
View File
@@ -235,8 +235,8 @@ read_defs(DefsFile, Defs) :-
assert_defs(DefsFile) :- assert_defs(DefsFile) :-
read_defs(DefsFile, Defs), read_defs(DefsFile, Defs),
forall(member(Def, Defs), assertz(Def)). forall(member(Def, Defs), assert_def(Def)).
assert_def(Def≡Body) :- retractall(Def≡_), assertz(Def≡Body).
:- assert_defs("defs.txt"). :- assert_defs("defs.txt").
% working_directory(_, 'c:/users/sforman/desktop/src/joypy/thun/'),