skip env.
This commit is contained in:
parent
6403b4793a
commit
935fd0d647
@ -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)
|
||||||
%
|
%
|
||||||
|
Reference in New Issue
Block a user