protect unbound ball

This commit is contained in:
Vitor Santos Costa 2010-02-26 10:22:09 +00:00
parent 361c54bed8
commit a8039df035

View File

@ -1203,7 +1203,7 @@ throw(Ball) :-
throw(Ball)
).
'catch_ball'('$abort', _) :- !, fail.
'catch_ball'(Abort, _) :- Abort == '$abort', !, fail.
% system defined throws should be ignored by used, unless the
% user is hacking away.
'catch_ball'(Ball, V) :-