diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix module usage in consult

Browse Source 
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
This commit is contained in:
vsc 2002-02-18 15:10:07 +00:00
parent a9783b7ec7
commit 2b8c0a2961
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/directives.yap
View File

@ -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) :-

2
pl/utils.yap
View File

@ -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),