;; TODO implement functions required by geiser (display "loaded gambit.scm\n")