--- a/BZip2Stream.st	Tue Jun 25 10:34:31 2002 +0200
+++ b/BZip2Stream.st	Wed Jun 26 08:44:39 2002 +0200
@@ -18,18 +18,18 @@
 #include "bzlib/bzlib.h"
 
 typedef enum {
-          e_opmode_unspecified
-        , e_opmode_deflate
-        , e_opmode_inflate
+          e_opmode_unspecified          /* processing done */
+        , e_opmode_deflate              /* running deflate */
+        , e_opmode_inflate              /* running inflate */
 } e_opmode;
 
 typedef struct {
-        bz_stream       stream;
-        char *          in_ref;
-        char *          out_ref;
-        unsigned int    out_total;
+        bz_stream       stream;         /* pointer to the external in -stream */
+        char *          in_ref;         /* size    of the external in -stream */
+        char *          out_ref;        /* pointer to the external out-stream */
+        unsigned int    out_total;      /* size    of the external out-stream */
 
-        e_opmode        op_mode;
+        e_opmode        op_mode;        /* current operational mode */
 } zstream_s;
 
 %}
@@ -40,11 +40,6 @@
 zclose
     "low level close of the zip stream
     "
-    onStream := mode := nil.
-    hitEOF   := true.
-
-    zstream ifNil:[^ self].
-    self unregisterForFinalization.
 %{
     OBJ _zstreamObj = __INST( zstream );
 
@@ -64,7 +59,6 @@
         free( _zstream );
     }
 %}.
-    zstream := nil.
 !
 
 zdeflate
@@ -301,7 +295,7 @@
 !
 
 zset_avail_in:count
-    "set the 'avail_in' and compute the crc
+    "set the 'avail_in'
     "
 %{
     OBJ _zstreamObj = __INST( zstream );