Logtalk 2.16.2 files.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1032 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
@@ -2,7 +2,7 @@
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
%
|
||||
% Logtalk - Object oriented extension to Prolog
|
||||
% Release 2.16.1
|
||||
% Release 2.16.2
|
||||
%
|
||||
% Copyright (c) 1998-2004 Paulo Moura. All Rights Reserved.
|
||||
%
|
||||
@@ -1074,7 +1074,7 @@ current_logtalk_flag(Flag, Value) :-
|
||||
'$lgt_default_flag'(Flag, Value),
|
||||
\+ '$lgt_flag_'(Flag, _).
|
||||
|
||||
current_logtalk_flag(version, version(2, 16, 1)).
|
||||
current_logtalk_flag(version, version(2, 16, 2)).
|
||||
|
||||
|
||||
|
||||
@@ -6789,11 +6789,18 @@ user0__def(Pred, _, _, _, Pred, user).
|
||||
|
||||
|
||||
'$lgt_startup_message' :-
|
||||
'$lgt_default_flag'(startup_message, on) ->
|
||||
'$lgt_banner',
|
||||
'$lgt_default_flags'
|
||||
;
|
||||
true.
|
||||
'$lgt_default_flag'(startup_message, Flag),
|
||||
'$lgt_startup_message'(Flag).
|
||||
|
||||
|
||||
'$lgt_startup_message'(flags) :-
|
||||
'$lgt_banner',
|
||||
'$lgt_default_flags'.
|
||||
|
||||
'$lgt_startup_message'(banner) :-
|
||||
'$lgt_banner'.
|
||||
|
||||
'$lgt_startup_message'(none).
|
||||
|
||||
|
||||
|
||||
|
@@ -1,11 +1,11 @@
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
%
|
||||
% Logtalk - Object oriented extension to Prolog
|
||||
% Release 2.16.1
|
||||
% Release 2.16.2
|
||||
%
|
||||
% configuration file for YAP Prolog 4.3.23 or later
|
||||
%
|
||||
% last updated: March 10, 2004
|
||||
% last updated: March 29, 2004
|
||||
%
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
@@ -238,7 +238,7 @@ forall(Generate, Test) :-
|
||||
|
||||
'$lgt_default_flag'(smart_compilation, off).
|
||||
|
||||
'$lgt_default_flag'(startup_message, on).
|
||||
'$lgt_default_flag'(startup_message, flags).
|
||||
|
||||
'$lgt_default_flag'(underscore_vars, singletons).
|
||||
|
||||
|
Reference in New Issue
Block a user