GC stack scanning cares about interior pointers

1 files changed, 5 insertions, 7 deletions

diff --git a/lib/impure/zipfiles.nim b/lib/impure/zipfiles.nim
index 2f0be6b99..1ab51fdd7 100755
--- a/lib/impure/zipfiles.nim
+++ b/lib/impure/zipfiles.nim
@@ -1,7 +1,7 @@
 #
 #
 #            Nimrod's Runtime Library
-#        (c) Copyright 2008 Andreas Rumpf
+#        (c) Copyright 2011 Andreas Rumpf
 #
 #    See the file "copying.txt", included in this
 #    distribution, for details about the copyright.
@@ -145,7 +145,7 @@ iterator walkFiles*(z: var TZipArchive): string =
 
 
 proc extractFile*(z: var TZipArchive, srcFile: string, dest: PStream) =
-  ## extracts a file from the zip archive 'z' to the destination stream.
+  ## extracts a file from the zip archive `z` to the destination stream.
   var strm = getStream(z, srcFile)
   while true:
     if not strm.atEnd:
@@ -155,15 +155,13 @@ proc extractFile*(z: var TZipArchive, srcFile: string, dest: PStream) =
   strm.close()
 
 proc extractFile*(z: var TZipArchive, srcFile: string, dest: string) =
-  ## extracts a file from the zip archive 'z' to the destination filename.
+  ## extracts a file from the zip archive `z` to the destination filename.
   var file = newFileStream(dest, fmReadWrite)
   extractFile(z, srcFile, file)
   file.close()
 
 proc extractAll*(z: var TZipArchive, dest: string) =
-  ## extracts all files from archive 'z' to the destination directory.
+  ## extracts all files from archive `z` to the destination directory.
   for file in walkFiles(z):
-    extractFile(z, file, dest & "/" & extractFilename(file))
+    extractFile(z, file, dest / extractFilename(file))
 
-   
-   
\ No newline at end of file