skip env.

This commit is contained in:
Vítor Santos Costa 2012-02-14 09:54:38 +00:00
parent 6403b4793a
commit 935fd0d647

View File

@ -290,6 +290,8 @@ expr_to_list(setting(Name), Module) --> !,
expr_to_list(A, _) --> expr_to_list(A, _) -->
[A]. [A].
:- if((\+ current_prolog_flag(version_data,yap(_,_,_,_)))).
%% env(+Name:atom, -Value:number) is det. %% env(+Name:atom, -Value:number) is det.
%% env(+Name:atom, +Default:number, -Value:number) is det %% env(+Name:atom, +Default:number, -Value:number) is det
% %
@ -310,6 +312,7 @@ env(Name, Default, Value) :-
; Value = Default ; Value = Default
). ).
:- endif.
%% numeric_type(+Type, -BaseType) %% numeric_type(+Type, -BaseType)
% %