Anonymous user
Program name: Difference between revisions
→{{header|Prolog}}
Line 1,307:
% This will find itself, and return the file it is in.
file_name(F) :- true
, M = user % M is the module .
, P = file_name(_) % P is the predicate .
, source_file(M:P, F) % F is the filename .
, \+ predicate_property(M:P, imported_from(_))
.
| |||