Skip to content

GitLab

Commit 15e6b562 authored by Michael Hanus 's avatar Michael Hanus
Browse files
Options

setEnv/unsetEnv fixed

parent 98291a3d
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 4 deletions
System/Environment.pakcs.pl
View file @ 15e6b562
......@@ -15,13 +15,11 @@
'System.Environment.prim_setEnviron'(Var,Value,'Prelude.()') :-
string2Atom(Var,AtomVar),
string2Atom(Value,AtomValue),
catch(setEnv(AtomVar,AtomValue), _,
prolog:set_system_property(AtomVar,AtomValue)).
setEnv(AtomVar,AtomValue).
'System.Environment.prim_unsetEnviron'(Var,'Prelude.()') :-
string2Atom(Var,AtomVar),
catch(unsetEnv(AtomVar), _,
'System.Environment.prim_setEnviron'(Var,[],'Prelude.()')).
unsetEnv(AtomVar).
'System.Environment.getHostname'(String) :-
getHostname(Name),
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment