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

Fix places message to correctly say place-channel-send, add support for

Browse Source 
windows paths in place channels
This commit is contained in:
Kevin Tew 2011-04-19 22:16:08 -06:00
parent 1932a453a8
commit 4749ae9d8a
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -858,6 +858,7 @@ Scheme_Object *scheme_places_deep_copy_worker(Scheme_Object *so, Scheme_Hash_Tab
} }
break; break;
case scheme_unix_path_type: case scheme_unix_path_type:
case scheme_windows_path_type:
new_so = scheme_make_sized_offset_path(SCHEME_BYTE_STR_VAL(so), 0, SCHEME_BYTE_STRLEN_VAL(so), 1); new_so = scheme_make_sized_offset_path(SCHEME_BYTE_STR_VAL(so), 0, SCHEME_BYTE_STRLEN_VAL(so), 1);
break; break;
case scheme_symbol_type: case scheme_symbol_type:
@ -986,9 +987,7 @@ Scheme_Object *scheme_places_deep_copy_worker(Scheme_Object *so, Scheme_Hash_Tab
case scheme_resolved_module_path_type: case scheme_resolved_module_path_type:
default: default:
printf("places deep copy cannot copy object of type %hi at %p\n", so->type, so); scheme_arg_mismatch("place-channel-send", "cannot transmit a message containing", so);
scheme_log_abort("places deep copy cannot copy object");
abort();
break; break;
} }
if (ht) { if (ht) {