diff options
Diffstat (limited to 'scheme/guile/geiser/eval.scm')
| -rw-r--r-- | scheme/guile/geiser/eval.scm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/scheme/guile/geiser/eval.scm b/scheme/guile/geiser/eval.scm index 530099d..1400566 100644 --- a/scheme/guile/geiser/eval.scm +++ b/scheme/guile/geiser/eval.scm @@ -25,7 +25,7 @@ ;;; Code: (define-module (geiser eval) - #:export (eval-in comp-file) + #:export (eval-in comp-file load-file) #:use-module (srfi srfi-1)) (define (eval-in form module-name) @@ -70,9 +70,12 @@ SUBR, MSG and REST." (current (getcwd))) (dynamic-wind (lambda () (chdir dest)) - (lambda () - (compile-file path) - (compile-and-load path)) + (lambda () (compile-file path)) (lambda () (chdir current))))) +(define (load-file path) + "Load file, given its full @var{path}." + (compile-and-load path)) + + ;;; eval.scm ends here |