Used either for a singleton effect or just for performance.

cache_method.lasso

// Cache method result on a thread level
define cache_method(c::capture = givenblock) => {
	#c->isnota(::capture) ? return #c
	local(v) = #c->self   ? #c->self->type->asstring + '.' + #c->methodname | #c->methodname
	var(#v)->isa(::null)  ? var(#v) = #c->detach & invoke
	return var(#v)
}

define current_user => cache_method => {
return user(session->val(::user_id) || 0)
}