summaryrefslogtreecommitdiff
path: root/module/ice-9/eval-string.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/ice-9/eval-string.scm')
-rw-r--r--module/ice-9/eval-string.scm4
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))))))))