diff options
Diffstat (limited to 'module/ice-9/eval-string.scm')
-rw-r--r-- | module/ice-9/eval-string.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/module/ice-9/eval-string.scm b/module/ice-9/eval-string.scm index 649551d9f..789980938 100644 --- a/module/ice-9/eval-string.scm +++ b/module/ice-9/eval-string.scm @@ -22,6 +22,7 @@ #:use-module (system base compile) #:use-module (system base language) #:use-module (system vm program) + #:use-module (system vm loader) #:replace (eval-string)) (define (ensure-language x) @@ -84,5 +85,6 @@ (set-port-column! port line)) (if (or compile? (not (language-evaluator lang))) - ((make-program (read-and-compile port #:from lang #:to 'objcode))) + ((load-thunk-from-memory + (read-and-compile port #:from lang #:to 'bytecode))) (read-and-eval port #:lang lang)))))))) |