[ drop file-info size>> ] 2bi
<limited-stream> ;
-GENERIC# limit-stream 1 ( stream limit -- stream' )
+GENERIC#: limit-stream 1 ( stream limit -- stream' )
M: decoder limit-stream ( stream limit -- stream' )
'[ stream>> _ limit-stream ] [ code>> ] [ cr>> ] tri