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

fix fragile export.

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-03-05 00:00:00 +00:00
parent cef4a27d1c
commit 75d1b897e0
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
library/cleanup.yap
View File

@ -29,17 +29,17 @@
% Read the Source. % Read the Source.
:- module( cleanup, [ :- module( cleanup, [
call_cleanup/2, call_cleanup/2,
call_cleanup/1, call_cleanup/1,
on_cleanup/1, on_cleanup/1,
cleanup_all/0 cleanup_all/0,
]). op(1150, fx,fragile)
]).
:- multifile user:goal_expansion/3. :- multifile user:goal_expansion/3.
:- user_defined_directive(fragile(G), cleanup:cleanup_expansion(G)). :- user_defined_directive(fragile(G), cleanup:cleanup_expansion(G)).
:- op(1150, fx,fragile).
:- meta_predicate :- meta_predicate
call_cleanup(:,:), call_cleanup(:,:),