From b36c0aefcdd063383fcb93863d47741d8bcc7d5a Mon Sep 17 00:00:00 2001 From: Siraaj Khandkar Date: Thu, 26 Sep 2013 21:19:03 -0400 Subject: [PATCH] Fix fragile pattern-matching. --- polymorphic-life/001/src/polymorphic_life.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/polymorphic-life/001/src/polymorphic_life.ml b/polymorphic-life/001/src/polymorphic_life.ml index 7b55572..4a28992 100644 --- a/polymorphic-life/001/src/polymorphic_life.ml +++ b/polymorphic-life/001/src/polymorphic_life.ml @@ -97,7 +97,8 @@ module Conway : CELL = struct | A when live_neighbors < 4 -> A | A when live_neighbors > 3 -> D | D when live_neighbors = 3 -> A - | t -> t + | A -> A + | D -> D end -- 2.20.1