Derivative of make-trampoline by Mark Weaver from #guile on irc.freenode.net

make-trampoline.scm

(define (make-trampoline module name)
  "Creates a trampoline out of a symbol in a given module, e.g. (lambda () (name))"
  (let ((var (module-variable module name)))
    (unless var
      (scm-error 'no-such-variable "make-trampoline" "Can't make a trampoline for variable named '~a that does not exist in module ~a." (list name module) #f))
    (let ((proc (lambda () ((variable-ref var)))))
      (set-procedure-property! proc 'name 
                               (string->symbol (format #f "~a-trampoline" name)))
      proc)))