factor: remove extra whitespace

[factor.git] / basis / compression / inflate / inflate.factor

diff --git a/basis/compression/inflate/inflate.factor b/basis/compression/inflate/inflate.factor
index 41f248aef1bbe949713e3482039310d7fbfa3ed1..b0706c59490f781c50e64db2e896300016e87a13 100644 (file)
--- a/basis/compression/inflate/inflate.factor
+++ b/basis/compression/inflate/inflate.factor
@@ -28,7 +28,7 @@ ERROR: bad-zlib-header ;
 : read-until-terminated ( data -- data ) 
     [ dup 8 swap bs:read 0 =  ] [  ]  until ;
 
-:: interpret-flag ( flg data  -- )
+:: interpret-flag ( flg data -- )
     27 data bs:seek 
     flg first 1 = [ 8 data bs:read data bs:seek  ] when
     flg second 1 = [ data read-until-terminated drop ] when