% :- defines( swi(_), environ/2 ).

environ( Name, Value ) :-
        (var(Value) -> 
                getenv( Name, Value )
                ;
                setenv( Name, Value )
        ).