Portable Objects for Scheme