Closed sasagawa888 closed 2 years ago
?- clause(my_call(X),Y). Y = (predicate_property(X,built_in),call(X)) ; Y = (predicate_property(X,dynamic),clause(X,true),write(X),get(D),get(Z),(+Z=';'->true;fail)) ; Segmentation fault (core dumped) sasagawa@DESKTOP-0D0L6O5:~/nprolog$
No problem.
?- clause(my_call(X),Y). Y = (predicate_property(X,built_in),call(X)) ; Y = (predicate_property(X,dynamic),clause(X,true),write(X),get(D),get(Z),(+Z=';'->true;fail)) ; Segmentation fault (core dumped) sasagawa@DESKTOP-0D0L6O5:~/nprolog$