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

fix user defined directives.

Browse Source
This commit is contained in:
Vítor Santos Costa 2012-02-26 23:26:08 +00:00
parent 1531002f26
commit 5d65c49292
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/directives.yap
View File

@ -167,7 +167,7 @@ user_defined_directive(Dir,Action) :-
functor(NDir,Na,Ar),
'$current_module'(M, prolog),
assert_static('$directive'(NDir)),
assert_static(('$exec_directive'(Dir, _, _) :- Action)),
assert_static(('$exec_directive'(Dir, _, _, _, _) :- Action)),
'$current_module'(_, M).
'$thread_initialization'(M:D) :-