From b1e765ca31d8669b38d038dac8dedc4b45d0da8f Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Thu, 6 Dec 2018 09:34:10 -0500 Subject: [PATCH] Check result of reading linklet hash. --- racket/src/expander/compile/read-linklet.rkt | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/racket/src/expander/compile/read-linklet.rkt b/racket/src/expander/compile/read-linklet.rkt index c60aedee35..4bdf63310a 100644 --- a/racket/src/expander/compile/read-linklet.rkt +++ b/racket/src/expander/compile/read-linklet.rkt @@ -43,6 +43,16 @@ (define b-ht (if as-correlated-linklet? (read-correlated-linklet-bundle-hash in) (read-linklet-bundle-hash in))) + (unless (hash? b-ht) + (raise-arguments-error 'read-linklet-bundle-hash + "bad read result" + "expected" "hash/c" + "found" (format "~s" b-ht) + "in" (let ([n (object-name in)]) + (if (path? n) + (path->string n) + in)))) + (hash->linklet-bundle (add-hash-code (if initial? (strip-submodule-references b-ht)