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

Fix abolish/1 predicate throw of instantiation_error

Browse Source
This commit is contained in:
Paulo Moura
2021-05-12 19:39:20 +01:00
parent 39aebd7144
commit d2fcdb3b6c
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/lib/builtins.pl
View File

@@ -1023,7 +1023,7 @@ retractall(_).
module_abolish(Pred, Module) :- module_abolish(Pred, Module) :-
( var(Pred) -> ( var(Pred) ->
throw(error(instantiation_error), abolish/1) throw(error(instantiation_error, abolish/1))
; Pred = Name/Arity -> ; Pred = Name/Arity ->
( var(Name) -> ( var(Name) ->
throw(error(instantiation_error, abolish/1)) throw(error(instantiation_error, abolish/1))
@@ -1052,7 +1052,7 @@ module_abolish(Pred, Module) :-
abolish(Pred) :- abolish(Pred) :-
( var(Pred) -> ( var(Pred) ->
throw(error(instantiation_error), abolish/1) throw(error(instantiation_error, abolish/1))
; Pred = Module:InnerPred -> ; Pred = Module:InnerPred ->
module_abolish(InnerPred, Module) module_abolish(InnerPred, Module)
; Pred = Name/Arity -> ; Pred = Name/Arity ->