# HG changeset patch
# User Mike Pavone <pavone@retrodev.com>
# Date 1311825995 25200
# Node ID a658c17148cbfad8d3bc0d78d0738dea1d770ed0
# Parent  c40e0faa1c926c5c3e9dfe7648707f828085703c
Add == worker

diff -r c40e0faa1c92 -r a658c17148cb kernel.rhope
--- a/kernel.rhope	Sun Jun 19 10:43:11 2011 -0700
+++ b/kernel.rhope	Wed Jul 27 21:06:35 2011 -0700
@@ -348,4 +348,23 @@
 	}
 }
 
+==[a,b:out]
+{
+	bpa <- Blueprint Of[a]
+	bpb <- Blueprint Of[b]
+	If[[bpa]=[bpb]]
+	{
+		out <- [a]=[b]
+	}{
+		//Cheat for strings
+		[(String(),String Cat(),String Slice())]Find[=[?, bpa]]
+		{
+			[(String(),String Cat(),String Slice())]Find[=[?, bpb]]
+			{ out <- [a]=[b] }
+			{ out <- No }
+		}{
+			out <- No
+		}
+	}
+}