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 { 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");
} }
} }