From c7d37f9f679351157f59f89ec130d1b0f5f83c65 Mon Sep 17 00:00:00 2001
From: Norayr Chilingarian <norayr@arnet.am>
Date: Wed, 23 Oct 2013 16:01:32 +0400
Subject: [PATCH] ulmStrings ported

Former-commit-id: 0896b33ccebecab05109f3b0e9abe3c7145b2e28
---
 src/lib/ulm/ulmStrings.Mod | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/lib/ulm/ulmStrings.Mod b/src/lib/ulm/ulmStrings.Mod
index 3947e13b..19b64395 100644
--- a/src/lib/ulm/ulmStrings.Mod
+++ b/src/lib/ulm/ulmStrings.Mod
@@ -34,10 +34,10 @@
    ----------------------------------------------------------------------------
 *)
 
-MODULE Strings;
+MODULE ulmStrings;
 
-   IMPORT Events, Priorities, RelatedEvents, Services, Streams,
-      SYS := SYSTEM, Types;
+   IMPORT Events := ulmEvents, Priorities := ulmPriorities, RelatedEvents := ulmRelatedEvents, Services := ulmServices, Streams := ulmStreams,
+      SYS := SYSTEM, Types := ulmTypes;
 
    TYPE
       Address = Types.Address;
@@ -246,7 +246,7 @@ MODULE Strings;
    PROCEDURE WriteByte(stream: Streams.Stream; byte: Byte) : BOOLEAN;
    BEGIN
       WITH stream: Stream DO
-	 IF ORD(byte) = 0 THEN RETURN FALSE END;
+	 IF ORD(SYS.VAL(CHAR, byte)) = 0 THEN RETURN FALSE END;
 	 IF stream.pos < stream.termindex THEN
 	    SYS.PUT(stream.addr + stream.pos, byte);
 	    INC(stream.pos);
@@ -379,4 +379,4 @@ BEGIN
    Events.Define(error);
    Events.SetPriority(error, Priorities.liberrors);
    Events.Ignore(error);
-END Strings.
+END ulmStrings.