Преглед изворни кода

* 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);
 
   while NextLevelItems <> nil do
-  begin  WriteLn('Loop');
+  begin  
     CurrentLevelItems := NextLevelItems;
     NextLevelItems := TFPList.Create;