From b87a123701fb192b2f31efb8896d7e661b399c32 Mon Sep 17 00:00:00 2001
From: Merlijn Wajer <merlijn@wizzup.org>
Date: Mon, 13 Jun 2011 17:44:04 +0200
Subject: [PATCH] More cleanups to CTS.

---
 Units/MMLCore/finder.pas | 17 ++++-------------
 1 file changed, 4 insertions(+), 13 deletions(-)

diff --git a/Units/MMLCore/finder.pas b/Units/MMLCore/finder.pas
index 094f357..e846b08 100644
--- a/Units/MMLCore/finder.pas
+++ b/Units/MMLCore/finder.pas
@@ -639,24 +639,15 @@ begin
   HiSpiral := (dy+1) * (dx + 1) -1;
   case CTS of
     0:
-    begin
       i := cts0();
-      if i <> -1 then
-        goto Hit;
-    end;
-
     1:
-    begin
       i := cts1();
-      if i <> -1 then
-        goto Hit;
-    end;
-
     2:
-    { Can be optimized a lot... RGBToHSL isn't really inline, }
-    begin
-    end;
+      i := cts2();
   end;
+  if i <> -1 then
+    goto Hit;
+
   Result := False;
   TClient(Client).IOManager.FreeReturnData;
   Exit;