From 4749ae9d8a30aa000c804b18e189f37e977e45f2 Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Tue, 19 Apr 2011 22:16:08 -0600
Subject: [PATCH] Fix places message to correctly say place-channel-send, add
 support for windows paths in place channels

---
 src/racket/src/places.c | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/racket/src/places.c b/src/racket/src/places.c
index 67594e34f5..6418485cf2 100644
--- a/src/racket/src/places.c
+++ b/src/racket/src/places.c
@@ -858,6 +858,7 @@ Scheme_Object *scheme_places_deep_copy_worker(Scheme_Object *so, Scheme_Hash_Tab
       }
       break;
     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);
       break;
     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:
     default:
-      printf("places deep copy cannot copy object of type %hi at %p\n", so->type, so);
-      scheme_log_abort("places deep copy cannot copy object");
-      abort();
+      scheme_arg_mismatch("place-channel-send", "cannot transmit a message containing", so);
       break;
   }
   if (ht) {