1:- module(mpred_gvars, []).    2
    3%:- use_module(library(must_trace)).
    4%:- use_module(library(dictoo_declarations)).
    5%:- use_module(library(dictoo)).
    6
    7
    8
    9%$current_file.value = X :- prolog_load_context(file,X).
   10
   11/*
   12:- listing(dot_cfg:dictoo_decl).
   13:- (debug(gvar(_)),debug(dictoo(_)),debug(mpred(_))).
   14:- rtrace((dot_eval($current_file, value, Out),writeln(Out))).
   15:- (nodebug(gvar(_)),nodebug(dictoo(_)),nodebug(mpred(_))).
   16*/
   17
   18%:- rtrace.
   19%:- writeln($current_file.value).
   20%:- nortrace.
   21
   22%:- break.
   23:- fixup_exports.