tttool play: Implement > and <=

Not sure why these were missing before. This fixes #112.
entropia · Oct 28, 2015 · d0902a7 · d0902a7
1 parent 8a777cf
commit d0902a7
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/GMERun.hs b/src/GMERun.hs
@@ -79,7 +79,9 @@ condTrue s (Cond v1 o v2) = value s v1 =?= value s v2
         NEq -> (/=)
         Lt  -> (<)
         GEq -> (>=)
-        _   -> \_ _ -> False
+        Gt  -> (>)
+        LEq -> (<=)
+        Unknowncond _ -> \_ _ -> False
 
 value :: Ord r => PlayState r -> TVal r -> Word16
 value m (Reg r) = M.findWithDefault 0 r m