fix late catch

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@305 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-01-17 16:20:36 +00:00
parent 6e8e59a0b1
commit 366f16f44f

View File

@ -22,7 +22,6 @@ true :- true. % otherwise, $$compile will ignore this clause.
'$live' :- '$live' :-
'$init_system', '$init_system',
'$init_catch',
'$do_live'. '$do_live'.
'$do_live' :- '$do_live' :-
@ -44,6 +43,8 @@ read_sig.
'$init_system' :- '$init_system' :-
% do catch as early as possible
'$init_catch',
( (
'$access_yap_flags'(15, 0) -> '$access_yap_flags'(15, 0) ->
'$version' '$version'