2:- module(utils_for_swi,
    3  [op(1000,fx,one),
    4  style_check/0,
    5   throw/2,
    6  (one)/1,
    7  (index)/2,
    8  lwrupr/2,
    9  (optimize)/1]).   10
   11style_check:- set_prolog_flag(double_quotes,codes),
   12    multifile(user:file_search_path/2),
   13    dynamic(user:file_search_path/2),
   14    (user:file_search_path(library,'.')->true ; asserta(user:file_search_path(library,'.'))).
   15
   16:- meta_predicate(one(0)).   17one(X):- once(X).
   18:- op(1000,fx,one).   19index(MFA,Args):- writeln(index(MFA,Args)).
   20optimize(MFA):- writeln(optimize(MFA)).
   21
   22
   23error_hook(X,Y):- writeln(error_hook(X,Y)),fail.
   24throw(X,Y):- writeln(throw(X,Y)),lisp_dump_break,throw(lpa_throw(X,Y)).
   25lwrupr(L,U):- var(L)-> downcase_atom(U,L); upcase_atom(L,U)