fix an error message

This commit is contained in:
Matthew Flatt 2017-07-31 17:33:14 -06:00
parent 12e497e0e8
commit 34afef1c38

View File

@ -2214,7 +2214,7 @@ static Scheme_Object *sch_putenv(int argc, Scheme_Object *argv[])
else {
scheme_raise_exn(MZEXN_FAIL,
"environment-variables-set!: change failed\n"
" system error: %E");
" system error: %R");
}
}