Merged from mozart-1-3-0-fixes

Trivial changes to avoid compilation warnings
yjaradin · Aug 24, 2006 · 42327a6 · 42327a6
1 parent c598150
commit 42327a6
Showing 1 changed file with 9 additions and 11 deletions.
diff --git a/op/ZlibIO.oz b/op/ZlibIO.oz
@@ -2,25 +2,23 @@ functor
 export
    CompressedFile
 import
-   ZLIBIO(
-      is             : ZIs
-      new            : ZNew
-      close          : ZClose
-      readByteString : ZReadByteString
-      read           : ZRead
-      write          : ZWrite
-      flush          : ZFlush
-      )
-   at 'x-oz://boot/ZlibIO'
+   ZLIBIO at 'x-oz://boot/ZlibIO'
    Open(file:File)
 prepare
    NoArg = {NewName}
    RaiseError = Exception.raiseError
    ListToRecord = List.toRecord
    ReadSize    = 1024
-   ReadSizeAll = 4096
+   % ReadSizeAll = 4096 not used in this functor
 define
 
+   ZNew            = ZLIBIO.new
+   ZClose          = ZLIBIO.close
+   ZReadByteString = ZLIBIO.readByteString
+   ZRead           = ZLIBIO.read
+   ZWrite          = ZLIBIO.write
+   ZFlush          = ZLIBIO.flush
+
    proc {DoReadAll ZFile Head Tail LenSofar LenTotal}
       Mid N
    in