Kernel/lib/megalog.pl

154 abolish P  :- is_predicate(P), !, sepia_kernel::abolish(P).
163 dynamic [H|T] :- !, sepia_kernel::dynamic(H), dynamic T.
164 dynamic P  :- sepia_kernel::dynamic(P).
167 listing [H|T] :- !, sepia_kernel::listing(H), listing T.
168 listing P  :- sepia_kernel::listing(P).
173 retract(Clause) :- sepia_kernel::retract(Clause),!.
192 	sepia_kernel::compound(Culprit),
197 	((sepia_kernel::is_predicate(F/Arity), abolish(F/Arity));true),
209 	sepia_kernel::error_handler(63,Culprit).
211 :- sepia_kernel::set_error_handler(63,error_handler_63/2).
245 	sepia_kernel::undef_array_handler(41,Goal,Module).
247 :- sepia_kernel::set_error_handler(41,error_handler_41/3).
290 block(Goal,Tag,Recover) :- sepia_kernel::block((Goal,!),Tag,Recover).
378 get(X)    :- repeat,sepia_kernel::get(X),X > 32,!.
379 get(X,S)  :- repeat,sepia_kernel::get(S,X),X > 32,!.
383 get0(X)   :- sepia_kernel::get(X).
384 get0(X,S) :- sepia_kernel::get(S,X).
385 skip(C)   :- repeat,sepia_kernel::get_char(C),!.
386 skip(C,S) :- repeat,sepia_kernel::get_char(S,C),!.
408 	sepia_kernel::open(File,Mode,Stream).
416 readvar(Term,VarList) :- sepia_kernel::readvar(input,Term,VarList).
521 concat(A,B,C) :- sepia_kernel::concat_strings(A,B,C).
613         sepia_kernel::op(Prec,Assoc,Name).
749 	sepia_kernel::date(Y),
814 sleep(Time) :- X is fix(Time) + 1, sepia_kernel::sleep(X).
859 	sepia_kernel::compound(Term),
1029 :- sepia_kernel::set_error_handler(150, handle_150/2).
1037 :- sepia_kernel::set_error_handler(152, handle_152/2).