Inline helpers into slot-ref, slot-set!, etc

[bpt/guile.git] / module / ice-9 / eval-string.scm

diff --git a/module/ice-9/eval-string.scm b/module/ice-9/eval-string.scm
index 3cf73b9..7899809 100644 (file)
--- a/module/ice-9/eval-string.scm
+++ b/module/ice-9/eval-string.scm
@@ -86,5 +86,5 @@
 
           (if (or compile? (not (language-evaluator lang)))
               ((load-thunk-from-memory
-                (read-and-compile port #:from lang #:to 'rtl)))
+                (read-and-compile port #:from lang #:to 'bytecode)))
               (read-and-eval port #:lang lang))))))))