From 366f16f44f681fcc0a3f5a4f2d3cd73e069ee681 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Thu, 17 Jan 2002 16:20:36 +0000
Subject: [PATCH] fix late catch

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

diff --git a/pl/boot.yap b/pl/boot.yap
index 2b08e2e6b..a2e79feb3 100644
--- a/pl/boot.yap
+++ b/pl/boot.yap
@@ -22,7 +22,6 @@ true :- true. % otherwise, $$compile will ignore this clause.
 
 '$live' :-
 	'$init_system',
-        '$init_catch',
         '$do_live'.
 
 '$do_live' :-
@@ -44,6 +43,8 @@ read_sig.
 
 
 '$init_system' :-
+        % do catch as early as possible
+        '$init_catch',
 	(
 	 '$access_yap_flags'(15, 0) ->
 	  '$version'