diff options
author | Andy Wingo <wingo@pobox.com> | 2013-10-31 14:17:30 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-10-31 14:17:30 +0100 |
commit | b73a2ee01773d910d82074a818c3955b45a6e6e1 (patch) | |
tree | 32c45887a5de512f43ea810fe31b016983cc7fb2 /module/system/repl | |
parent | 30b7cf9df0f51bc2a3553396dc368c197eab4d8d (diff) | |
download | guile-b73a2ee01773d910d82074a818c3955b45a6e6e1.tar.gz |
Default to compiling to RTL
* module/ice-9/eval-string.scm (eval-string)
* module/language/tree-il/spec.scm (tree-il)
* module/scripts/compile.scm (compile)
* module/system/base/compile.scm (compile-file, read-and-compile)
* module/system/repl/common.scm (repl-compile, repl-prepare-eval-thunk):
Default to compiling to RTL.
* module/language/rtl/spec.scm (rtl->value): Add value compiler.
Diffstat (limited to 'module/system/repl')
-rw-r--r-- | module/system/repl/common.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/module/system/repl/common.scm b/module/system/repl/common.scm index 94b41ea4f..1da36694a 100644 --- a/module/system/repl/common.scm +++ b/module/system/repl/common.scm @@ -25,6 +25,7 @@ #:use-module (system base language) #:use-module (system base message) #:use-module (system vm program) + #:use-module (system vm objcode) #:autoload (language tree-il optimize) (optimize) #:use-module (ice-9 control) #:use-module (ice-9 history) @@ -176,7 +177,7 @@ See <http://www.gnu.org/licenses/lgpl.html>, for more details.") (define (repl-compile repl form) (let ((from (repl-language repl)) (opts (repl-compile-options repl))) - (compile form #:from from #:to 'objcode #:opts opts + (compile form #:from from #:to 'rtl #:opts opts #:env (current-module)))) (define (repl-expand repl form) @@ -205,7 +206,7 @@ See <http://www.gnu.org/licenses/lgpl.html>, for more details.") (or (null? (language-compilers (repl-language repl))) (repl-option-ref repl 'interp))) (lambda () (eval form (current-module))) - (make-program (repl-compile repl form))))) + (load-thunk-from-memory (repl-compile repl form))))) (define (repl-eval repl form) (let ((thunk (repl-prepare-eval-thunk repl form))) |