~ chicken-r7rs (master) /scheme.load.scm

 1(module scheme.load (load)
 2  (import chicken.base chicken.type)
 3  (import (rename scheme (load %load) (eval %eval)))
 4
 5  (: load (string #!optional (struct environment) -> undefined))
 6
 7  (define load
 8    (case-lambda
 9      ((filename)
10       (%load filename))
11      ((filename environment)
12       (%load filename (lambda (exp)
13			 (%eval exp environment)))))))