Improve blame context message

2015-01-19 16:37:15 -08:00 · 2015-01-19 16:37:15 -08:00 · 6aad952b20
commit 6aad952b20
parent 6e79a582f1
1 changed files with 1 additions and 1 deletions
--- a/racket/collects/racket/async-channel.rkt
+++ b/racket/collects/racket/async-channel.rkt
@ -195,7 +195,7 @@
         '()))

 (define (add-async-channel-context blame)
-  (blame-add-context blame "the content of"))
+  (blame-add-context blame "a value passed through"))

 (define (check-async-channel/c ctc val blame)
  (unless (async-channel? val)