浏览代码

Debug line removed

Artur Efimov 6 年之前
父节点
当前提交
b9edaf5cdd
共有 1 个文件被更改,包括 0 次插入1 次删除
  1. 0 1
      src/FreeOberon.Mod

+ 0 - 1
src/FreeOberon.Mod

@@ -555,7 +555,6 @@ VAR fname: ARRAY 120 OF CHAR;
 BEGIN
 BEGIN
   fname := 'Programs/'; Strings.Append(s, fname);
   fname := 'Programs/'; Strings.Append(s, fname);
   Strings.Append('.Mod', fname);
   Strings.Append('.Mod', fname);
-  Out.String(">>>");Out.String(fname);Out.Ln;
   F := Files.Old(fname);
   F := Files.Old(fname);
   exists := F # NIL;
   exists := F # NIL;
   IF F # NIL THEN Files.Close(F) END;
   IF F # NIL THEN Files.Close(F) END;