fix fragile export.

2010-03-05 00:00:00 +00:00 · 2010-03-05 00:00:00 +00:00 · 75d1b897e0
commit 75d1b897e0
parent cef4a27d1c
1 changed files with 6 additions and 6 deletions
--- a/library/cleanup.yap
+++ b/library/cleanup.yap
@ -32,14 +32,14 @@
 		     call_cleanup/2,
 		     call_cleanup/1,
 		     on_cleanup/1,
-		cleanup_all/0
+		     cleanup_all/0,
+		     op(1150, fx,fragile)
 		    ]).


 :- multifile user:goal_expansion/3.

 :- user_defined_directive(fragile(G), cleanup:cleanup_expansion(G)).
-:- op(1150, fx,fragile).

 :- meta_predicate
 	call_cleanup(:,:),