From 2b8c0a29612fdb69f82c210a2acf4d523024f7fd Mon Sep 17 00:00:00 2001 From: vsc Date: Mon, 18 Feb 2002 15:10:07 +0000 Subject: [PATCH] fix module usage in consult get rid of singletion warning for on_signal git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@366 b08c6af1-5177-4d33-ba66-4b1c6b8b522a --- pl/directives.yap | 2 +- pl/utils.yap | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/pl/directives.yap b/pl/directives.yap index 1acfa74b3..4f54894da 100644 --- a/pl/directives.yap +++ b/pl/directives.yap @@ -81,7 +81,7 @@ '$exec_directive'(reconsult(Fs), _, M) :- '$reconsult'(M:Fs). '$exec_directive'(consult(Fs), _, M) :- - '$consult'(Fs). + '$consult'(M:Fs). '$exec_directive'(use_module(Fs), _, M) :- '$use_module'(M:Fs). '$exec_directive'(use_module(Fs,I), _, M) :- diff --git a/pl/utils.yap b/pl/utils.yap index 300869287..b67871498 100644 --- a/pl/utils.yap +++ b/pl/utils.yap @@ -242,7 +242,7 @@ alarm(Interval, Goal, Left) :- '$alarm'(Interval, Left). on_signal(Signal,OldAction,default) :- - recorded('$sig_handler', default(Signal,Action), Ref), + recorded('$sig_handler', default(Signal,Action), _Ref), on_signal(Signal,OldAction,Action). on_signal(Signal,OldAction,Action) :- recorded('$sig_handler', action(Signal,OldAction), Ref),