(define (my-load file-name)
  (let ((p (open-input-file file-name)))
    (let loop ((obj (read p)))
      (if (eof-object? obj)
          (close-input-port p)
          (begin (eval obj (interaction-environment))
                 (loop (read p)))))))

Thanks,