Factored out some trivial bits into Misc, made coding style more consistent

1 files changed, 12 insertions, 14 deletions

diff --git a/src/squares.adb b/src/squares.adb
index 673f425..91b1bd1 100644
--- a/src/squares.adb
+++ b/src/squares.adb
@@ -3,6 +3,18 @@
 package body Squares is
 
 
+    function "="
+           (A, B : in Square)
+        return Boolean is
+    begin
+        return
+            A.Walkable = B.Walkable and
+            A.Self_Image = B.Self_Image;
+    end "=";
+
+
+
+
     function Is_Walkable
            (This : in Square)
         return Boolean is
@@ -21,8 +33,6 @@ package body Squares is
     end Get_Contents;
 
 
-
-
     procedure Set_Contents
            (This : in out Square;
             Item : in     Things.Thing) is
@@ -42,17 +52,5 @@ package body Squares is
     end Draw;
 
 
-
-
-    function "="
-           (A, B : in Square)
-        return Boolean is
-    begin
-        return
-            A.Walkable = B.Walkable and
-            A.Self_Image = B.Self_Image;
-    end "=";
-
-
 end Squares;