diff --git a/collects/compiler/zo-parse.rkt b/collects/compiler/zo-parse.rkt index 0f8ecde12e..9a61c7f2af 100644 --- a/collects/compiler/zo-parse.rkt +++ b/collects/compiler/zo-parse.rkt @@ -1061,7 +1061,7 @@ (define rst-start (file-position port)) (file-position port (+ rst-start size*)) - + (unless (eof-object? (read-byte port)) (error 'zo-parse "File too big")) diff --git a/collects/tests/racket/embed-place.rkt b/collects/tests/racket/embed-place.rkt new file mode 100644 index 0000000000..46e33a7483 --- /dev/null +++ b/collects/tests/racket/embed-place.rkt @@ -0,0 +1,7 @@ +#lang racket/base +(require racket/place) + +(provide go) + +(define (go ch) + (place-channel-put ch 42))