This looks like a job for a macro!

(define-macro (define-test-function)
  `(define (test-function)
     ,(load "external.scm")
     x))

(define-test-function)

(test-function)
; ==> 3

Reply via email to