From 28d02deeae96f2d238c471321bf6bd4d9c8102ef Mon Sep 17 00:00:00 2001
From: norayr <norayr@arnet.am>
Date: Thu, 29 Dec 2016 20:12:52 +0400
Subject: [PATCH] Days.Mod compiles.

---
 Days.Mod | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/Days.Mod b/Days.Mod
index ae5ac3c..37732d9 100644
--- a/Days.Mod
+++ b/Days.Mod
@@ -1,14 +1,15 @@
 MODULE Days;
 
  TYPE 
- Day* = POINTER TO DayDesc;
- DayDesc = RECORD
-   next*, prev* : Day;
- END DayDesc;
- TYPE Week = ARRAY 7 OF Day;
+   Day* = POINTER TO DayDesc;
+   DayDesc = RECORD
+   next, prev : Day
+   END;
+   Week = ARRAY 7 OF Day;
 
- VAR sun*, mon*, tue*, wed*, thu*, fri*, sat* : Day;
- week: ARRAY 7 OF Day;
+ VAR 
+   sun*, mon*, tue*, wed*, thu*, fri*, sat* : Day;
+   week: Week;
 
  PROCEDURE Next*(d : Day): Day;
  BEGIN