The return value of `load'

[Panicz Maciej Godek <godek.maciek@gmail.com>]

Hey,
let's assume that I have two files. The first one contains a single sexp:
2plus3.scm:
(+ 2 3)

Now I would like to load that file, just like the `load' or `primitive-load'
does, but I would like to have an access to the return value of the last
expression from the file:

(define x (load "2plus3.scm")) ; (i wish x was 5)

The similar effect could be achieved using

(let* ((f (open-file "2plus3.scm" "r"))
       (v (read f)))
  (close f)
  (primitive-eval v))

but I was wondering if it was possible to implement this feature
as a default behavior of `load' or `primitive-load' -- it would be convenient
for the programs that would want to store the data in the external files.

Regards
M.