suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix bug introduced by error-message conversion

Browse Source
This commit is contained in:
Matthew Flatt 2012-05-26 18:50:48 -06:00
parent 8a52613463
commit 7614e7044b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/racket/src/place.c
View File

@ -2873,10 +2873,11 @@ static void place_async_send(Scheme_Place_Async_Channel *ch, Scheme_Object *uo)
o = places_serialize(uo, &msg_memory, &master_chain, &invalid_object);
if (!o) {
if (invalid_object) {
scheme_contract_error("place-channel-put"
scheme_contract_error("place-channel-put",
"value not allowed in a message",
"value", 1, invalid_object,
"message", 1, uo);
"message", 1, uo,
NULL);
}
else bad_place_message(uo);
}