Implement some function. Added original copyright notice from original bootstrap scheme scheme.c.