Don't shadow funcs & combos.

2019-08-11 14:56:20 -07:00
parent 9e180e8173
commit adf0e96f84
2 changed files with 9 additions and 3 deletions
@@ -14,11 +14,12 @@ assert_defs(DefsFile) :-
    phrase(joy_defs, Codes).

 assert_def(def(Def, Body)) :-
+    \+ func(Def, _, _),
+    \+ combo(Def, _, _, _, _),
    retractall(def(Def, _)),
    assertz(def(Def, Body)).


-
 read_file_to_codes(File, Codes, _) :-
    open(File, read, Stream),
    stream_to_codes(Stream, Codes),
@@ -32,6 +33,7 @@ stream_to_codes(Stream, Codes) :-
 stream_to_codes(-1,      _,         []) :- !.
 stream_to_codes(Ch, Stream, [Ch|Codes]) :- stream_to_codes(Stream, Codes).

+
 print_defs :-
    findall(def(Name, Body), def(Name, Body), List),
    open(`defs.pl`, write, Stream),