fix volatile processing (doesn't do much more).

This commit is contained in:
ubu32 2011-07-10 04:52:33 -07:00
parent 3d4a79334e
commit d62fb5c2d7

View File

@ -31,8 +31,9 @@ volatile(P) :- var(P),
volatile(M:P) :-
'$do_volatile'(P,M).
volatile((G1,G2)) :-
'$do_volatile'(G1),
'$do_volatile'(G2).
'$current_module'(M),
'$do_volatile'(G1,M),
'$do_volatile'(G2,M).
volatile(P) :-
'$current_module'(M),
'$do_volatile'(P,M).