From deb52228acea4d265c22dd0406a5232c83c11b24 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 3 Dec 2018 10:30:50 -0800 Subject: [PATCH] update --- pitfall/pitfall/png-reader.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pitfall/pitfall/png-reader.rkt b/pitfall/pitfall/png-reader.rkt index 94261a77..d44172fb 100644 --- a/pitfall/pitfall/png-reader.rkt +++ b/pitfall/pitfall/png-reader.rkt @@ -78,7 +78,7 @@ Grab key chunks from PNG. Doesn't require heavy lifting from libpng. (loop)])))) (define/contract (decodePixels imgData pixelBitLength width height) - (bytes? number? number? number? . -> . any/c) + (bytes? number? number? number? . -> . bytes?) (define pixelBytes (/ pixelBitLength 8)) (define scanlineLength (* pixelBytes width)) (define pixels (make-bytes (* scanlineLength height))) @@ -153,5 +153,5 @@ Grab key chunks from PNG. Doesn't require heavy lifting from libpng. (module+ test (require rackunit) (check-equal? - (read-png (open-input-file "test/assets/test.png")) - (read-png (file->bytes "test/assets/test.png")))) \ No newline at end of file + (read-png (open-input-file "../ptest/assets/test.png")) + (read-png (file->bytes "../ptest/assets/test.png")))) \ No newline at end of file