Move the definition of get-internal-time.

This is to minimize the diff against gambit/book.scm.