fix an error message
This commit is contained in:
parent
12e497e0e8
commit
34afef1c38
|
@ -2214,7 +2214,7 @@ static Scheme_Object *sch_putenv(int argc, Scheme_Object *argv[])
|
||||||
else {
|
else {
|
||||||
scheme_raise_exn(MZEXN_FAIL,
|
scheme_raise_exn(MZEXN_FAIL,
|
||||||
"environment-variables-set!: change failed\n"
|
"environment-variables-set!: change failed\n"
|
||||||
" system error: %E");
|
" system error: %R");
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user