Mercurial > repos > rhope
changeset 181:a658c17148cb
Add == worker
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 27 Jul 2011 21:06:35 -0700 |
parents | c40e0faa1c92 |
children | db30bda91aad |
files | kernel.rhope |
diffstat | 1 files changed, 19 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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 + } + } +}