fix -z option
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1413 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
f5fc38a79e
commit
9c61f13aa5
@ -131,7 +131,7 @@ true :- true.
|
||||
fail.
|
||||
'$enter_top_level' :-
|
||||
'$current_module'(Module),
|
||||
get_value('$top_level_goal',GA), T \= [], !,
|
||||
get_value('$top_level_goal',GA), GA \= [], !,
|
||||
set_value('$top_level_goal',[]),
|
||||
'$run_atom_goal'(GA),
|
||||
set_value('$live','$false').
|
||||
|
Reference in New Issue
Block a user