public BlockBehavior(IBehavior behavior, IBehavior superclass, Machine machine)
: base(behavior, superclass, machine, typeof(Block))
{
string assertcode = @"
assert
self value ifFalse: [@AjTalk.Exceptions.AssertError new raise].
^true
";
Parser parser = new Parser(assertcode);
this.DefineInstanceMethod(parser.CompileInstanceMethod(this));
////this.DefineInstanceMethod(new FunctionalMethod("assert", this, this.AssertMethod));
}