define equal_constructor, less_constructor and greater_constructor using...

define equal_constructor, less_constructor and greater_constructor using macros containing a local function with inline code, because the boot compiler does not yet support :== code in definition modules

frontend/compare_constructor.dcl

 system module compare_constructor;
 
+equal_constructor a b :== equal_constructor a b;
+{
 equal_constructor :: !a !a ->Bool;
+	equal_constructor _ _ = code inline {
+		pushD_a 1
+		pushD_a 0
+		pop_a 2
+		eqI
+	};
+}
+
+less_constructor a b :== less_constructor a b;
+{
 less_constructor :: !a !a ->Bool;
+	less_constructor _ _ = code inline {
+		pushD_a 1
+		pushD_a 0
+		pop_a 2
+		ltI
+	};
+}
+
+greater_constructor a b :== greater_constructor a b;
+{
 greater_constructor :: !a !a ->Bool;
+	greater_constructor _ _ = code inline {
+		pushD_a 1
+		pushD_a 0
+		pop_a 2
+		gtI
+	};
+}

frontend/compare_constructor.icl

 implementation module compare_constructor;
 
+equal_constructor a b :== equal_constructor a b;
+{
 equal_constructor :: !a !a ->Bool;
-equal_constructor _ _ = code {
-	.inline equal_constructor
+	equal_constructor _ _ = code inline {
 		pushD_a 1
 		pushD_a 0
 		pop_a 2
 		eqI
-	.end
 };
+}
 
+less_constructor a b :== less_constructor a b;
+{
 less_constructor :: !a !a ->Bool;
-less_constructor _ _ = code {
-	.inline less_constructor
+	less_constructor _ _ = code inline {
 		pushD_a 1
 		pushD_a 0
 		pop_a 2
 		ltI
-	.end
 };
+}
 
+greater_constructor a b :== greater_constructor a b;
+{
 greater_constructor :: !a !a ->Bool;
-greater_constructor _ _ = code {
-	.inline greater_constructor
+	greater_constructor _ _ = code inline {
 		pushD_a 1
 		pushD_a 0
 		pop_a 2
 		gtI
-	.end
 };
-
-
-
-
-
+}