Добавлена возможножность вызова команд

[dsw-obn.git] / rtl / Oberon.obn

diff --git a/rtl/Oberon.obn b/rtl/Oberon.obn
index 6282f4e4acd3bc1ab45cf0a56c6cb24f3877e948..37067d702e8879834e09136b304f7f894bd20920 100644 (file)
--- a/rtl/Oberon.obn
+++ b/rtl/Oberon.obn
@@ -50,14 +50,9 @@ BEGIN
   END
 END LogNotifier;
 
-PROCEDURE StubNotifier(T: Texts.Text; op: INTEGER; beg, end: LONGINT);
-BEGIN
-END StubNotifier;
-
 BEGIN
   NEW(Par);
   NEW(Par.text);
-  Par.text.notify := StubNotifier;
   Par.pos := 0;
   Texts.Open(Par.text, "");
   PopulateParams;