Fix compile error in images.jpeg

diff --git a/basis/images/jpeg/jpeg.factor b/basis/images/jpeg/jpeg.factor
index 7da9f6fc09a1a5f126f633c3431ded1a0575a420..227aab21cd66b123ee9e86ad14473112299ef6e0 100644 (file)
--- a/basis/images/jpeg/jpeg.factor
+++ b/basis/images/jpeg/jpeg.factor
@@ -121,16 +121,14 @@ TUPLE: jpeg-color-info
 
 : decode-huff-table ( chunk -- )
     data>> [ binary <byte-reader> ] [ length ] bi limit-stream [
+        [ input-stream get stream>> [ count>> ] [ limit>> ] bi < ]
         [
-            [ input-stream get stream>> [ count>> ] [ limit>> ] bi < ]
-            [
-                read4/4 swap 2 * +
-                16 read
-                dup [ ] [ + ] map-reduce read
-                binary [ [ read [ B{ } ] unless* ] { } map-as ] with-byte-reader
-                swap jpeg> huff-tables>> set-nth
-            ] while
-        ] with-input-stream*
+            read4/4 swap 2 * +
+            16 read
+            dup [ ] [ + ] map-reduce read
+            binary [ [ read [ B{ } ] unless* ] { } map-as ] with-byte-reader
+            swap jpeg> huff-tables>> set-nth
+        ] while
     ] stream-throw-on-eof ;
 
 : decode-scan ( chunk -- )