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

Retract previous definitions before asserting new ones.

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
thun/thun.pl
View File

@ -235,8 +235,8 @@ read_defs(DefsFile, Defs) :-
assert_defs(DefsFile) :-
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").
% working_directory(_, 'c:/users/sforman/desktop/src/joypy/thun/'),