From e24ecf331f81c5acbacd14f5ae4e3c5210391eed Mon Sep 17 00:00:00 2001
From: g00r00 <mysticbbs@gmail.com>
Date: Fri, 4 Oct 2013 10:40:54 -0400
Subject: [PATCH] More portable writeLine function

---
 mystic/mpl_execute.pas | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/mystic/mpl_execute.pas b/mystic/mpl_execute.pas
index ab05d60..66c2e47 100644
--- a/mystic/mpl_execute.pas
+++ b/mystic/mpl_execute.pas
@@ -1265,12 +1265,7 @@ End;
 
 Procedure TInterpEngine.FileWriteLine (Var F: File; Str: String);
 Begin
-  {$IFDEF WINDOWS}
-    Str := Str + #13#10;
-  {$ENDIF}
-  {$IFDEF UNIX}
-    Str := Str + #10;
-  {$ENDIF}
+  Str := Str + LineTerm;
 
   BlockWrite (F, Str[1], Ord(Str[0]));