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
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