mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +02:00
Code Activity

Default to compiling to RTL

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2013-10-31 14:17:30 +01:00
parent 30b7cf9df0
commit b73a2ee017
6 changed files with 24 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/system/base/compile.scm
View file

@ -133,7 +133,7 @@
(define* (compile-file file #:key
(output-file #f)
(from (current-language))
(to 'objcode)
(to 'rtl)
(env (default-environment from))
(opts '())
(canonicalization 'relative))
@ -207,7 +207,7 @@
(define* (read-and-compile port #:key
(from (current-language))
(to 'objcode)
(to 'rtl)
(env (default-environment from))
(opts '()))
(let ((from (ensure-language from))

5
module/system/repl/common.scm
View file

@ -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)))