rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bind missing module atom in retract/1 (#2182)

Browse Source
This commit is contained in:
Mark
2023-11-25 20:59:01 -07:00
parent f1458b772e
commit b8ef367824
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/lib/builtins.pl
View File

@@ -1214,6 +1214,9 @@ retract(Clause0) :-
Body = true, Body = true,
retract_module_clause(Head, Body, Module) retract_module_clause(Head, Body, Module)
; Clause = (Head :- Body) -> ; Clause = (Head :- Body) ->
( var(Module) -> Module = user
; true
),
retract_module_clause(Head, Body, Module) retract_module_clause(Head, Body, Module)
). ).