Преглед на файлове

* removed stale debug writeln

git-svn-id: trunk@13759 -
marco преди 16 години
родител
ревизия
9c0e066d25
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      packages/chm/src/chmwriter.pas

+ 1 - 1
packages/chm/src/chmwriter.pas

@@ -1200,7 +1200,7 @@ begin
       FreeAndNil(NextLevelItems);
       FreeAndNil(NextLevelItems);
 
 
   while NextLevelItems <> nil do
   while NextLevelItems <> nil do
-  begin  WriteLn('Loop');
+  begin  
     CurrentLevelItems := NextLevelItems;
     CurrentLevelItems := NextLevelItems;
     NextLevelItems := TFPList.Create;
     NextLevelItems := TFPList.Create;