fix synatx error.

This commit is contained in:
Vítor Santos Costa 2012-04-20 12:28:42 +02:00
parent c3da25227f
commit 753170bf7c

View File

@ -1012,7 +1012,7 @@ absolute_file_name(File,Opts,TrueFileName) :-
'$set_yap_flags'(11,0).
'$fetch_comp_status'(assert_all) :-
catch(nb_getval('$assert_all',on), _, fail) !.
catch(nb_getval('$assert_all',on), _, fail), !.
'$fetch_comp_status'(source) :-
'$access_yap_flags'(11,1).
'$fetch_comp_status'(compact).