From 0d5e6da7dc26f85d4beb0d306083893f84295341 Mon Sep 17 00:00:00 2001
From: norayr <norayr@arnet.am>
Date: Wed, 1 Jul 2015 15:56:47 +0400
Subject: [PATCH] added OptionChar to Oberon.Mod; -- noch

---
 src/lib/v4_compat/Oberon.Mod | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/lib/v4_compat/Oberon.Mod b/src/lib/v4_compat/Oberon.Mod
index ac12e059..89b111b8 100644
--- a/src/lib/v4_compat/Oberon.Mod
+++ b/src/lib/v4_compat/Oberon.Mod
@@ -3,7 +3,6 @@ MODULE Oberon;
 (* this version should not have dependency on graphics -- noch *)
 
   IMPORT Kernel, Texts, Args;
-
   TYPE
 
     ParList* = POINTER TO ParRec;
@@ -20,6 +19,7 @@ MODULE Oberon;
     Log*: Texts.Text;
     Par*: ParList; (*actual parameters*)
     W : Texts.Writer;
+	OptionChar*: CHAR;
   (*clocks*)
 
   PROCEDURE GetClock* (VAR t, d: LONGINT);
@@ -57,6 +57,7 @@ BEGIN
    NEW(Par);
    NEW(Par.text);
    Par.pos := 0;
+   OptionChar := '-';
    Texts.Open(Par.text, "");
    PopulateParams;
 END Oberon.