From 9c61f13aa51342f10988c424eaf3d53b13ade727 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Fri, 21 Oct 2005 16:15:31 +0000
Subject: [PATCH] fix -z option

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1413 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 pl/boot.yap | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pl/boot.yap b/pl/boot.yap
index 2e0bdb6ae..ded5bdade 100644
--- a/pl/boot.yap
+++ b/pl/boot.yap
@@ -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').