Match error messasge in places.c

This commit is contained in:
Kevin Tew 2011-04-21 06:24:09 -06:00
parent b1cd60213f
commit 6bfef986d1

View File

@ -87,7 +87,7 @@
(apply make-prefab-struct (apply make-prefab-struct
key key
(map dcw (cdr (vector->list (struct->vector o)))))] (map dcw (cdr (vector->list (struct->vector o)))))]
[else (raise-mismatch-error 'place-channel-send "cannot transmit a message containing " o)])) [else (raise-mismatch-error 'place-channel-send "cannot transmit a message containing value: " o)]))
(dcw x)) (dcw x))