1 files changed, 10 insertions, 0 deletions
diff --git a/src/moves.adb b/src/moves.adb
index e9bffc1..11f92b4 100644
--- a/src/moves.adb
+++ b/src/moves.adb
@@ -40,5 +40,15 @@ package body Moves is
     end Drop_Latest;
 
 
+
+
+    function Length
+           (This : in Path)
+        return Natural is
+    begin
+        return Natural (Move_Vectors.Vector (This).Length);
+    end Length;
+
+
 end Moves;