horse: implement inheritance

2026-03-04 13:34:10 -05:00
parent cf814c6c72
commit 424f65dc8a
6 changed files with 512 additions and 25 deletions
--- a/horse/game-id.kk
+++ b/horse/game-id.kk
@@ -74,3 +74,7 @@ pub inline fun (==)(x: a, y: a, ?a/game-id: (a) -> game-id): bool
 // Check whether a game ID is valid, i.e. nonzero.
 pub inline fun is-valid(x: a, ?a/game-id: (a) -> game-id): bool
  x.game-id != 0
+
+// Construct an invalid game ID.
+pub inline fun default/game-id(): game-id
+  0