Retract previous definitions before asserting new ones.

2019-07-15 16:01:59 -07:00
parent 4fefc04da3
commit ee395e91f1
1 changed files with 3 additions and 3 deletions
@@ -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/'), 
-