More

frog/responsive-images.rkt

@@ -27,15 +27,19 @@
   (require rackunit))
 
 (define (image-width path)
-  (string->number
-   (with-output-to-string
-     (λ ()
-       (eprintf "identify=~a path=~a\n" identify path)
-       (system* identify "-format" "%w" path)))
-   ))
+  (eprintf "identify=~a path=~a\n" identify path)
+  (let ([str (with-output-to-string
+               (λ ()
+                 (system* identify "-format" "%w" path)))])
+    (printf "str=~a" str)
+    (let ([n (string->number str)])
+      (printf " n=~a\n" n)
+      n)))
 
 (module+ test
   (when magick-available?
+    (displayln "identify:")
+    (system* identify "-version")
     (parameterize ([top example])
       (check-eq? (image-width (build-path (www/img-path) "800px-image.gif")) 800))))