diff options
author | Andy Wingo <wingo@pobox.com> | 2009-04-16 17:49:59 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-04-16 17:49:59 +0200 |
commit | b8076ec6cc3a18a92186d954684f88a735a42018 (patch) | |
tree | 057f3c83f20825b881060b145c971c7ceb882c26 /module/system/base/language.scm | |
parent | b41b92c9d1c439ddfc5c081b3949e9d1763de181 (diff) | |
download | guile-b8076ec6cc3a18a92186d954684f88a735a42018.tar.gz |
support expression-by-expression compilation
* module/language/ghil.scm (unparse-ghil): Fix unparsing of quasiquoted
expressions.
* module/language/ghil/spec.scm (join): Define a joiner for GHIL.
* module/language/scheme/compile-ghil.scm (cenv-ghil-env): Expand the
definition of a CENV so it can have an actual ghil-env, if available.
(compile-ghil): Return the actual ghil env in the cenv.
* module/system/base/compile.scm (compile-file): Rewrite. `output-file'
is now a keyword argument, along with the new kwargs `env' and `from'.
We now allow exceptions to propagate up, and instead of printing the
output file to the console, we return a string corresponding to its
location.
(compile-and-load): Use read-and-compile.
(compile-fold): Thread around the cenv as well. Return all three
values.
(find-language-joint, read-and-compile): New exciting helpers. The idea
is that compiling a file should be semantically equivalent to compiling
each expression in it, one by one. Compilation can have side effects,
e.g. affecting the current language or the current reader. So what we
do is find a point in the compilation path at which different
expressions of a given language can be joined into one. Expressions
from the source language are compiled to the joint language, then
joined and compiled to the target.
(compile): Just return the first value from compile-fold.
* module/system/base/language.scm (language-joiner): New optional field.
* scripts/compile: Rework for changes to compile-file.
Diffstat (limited to 'module/system/base/language.scm')
-rw-r--r-- | module/system/base/language.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/module/system/base/language.scm b/module/system/base/language.scm index 70000c551..649137c4d 100644 --- a/module/system/base/language.scm +++ b/module/system/base/language.scm @@ -25,6 +25,7 @@ language-name language-title language-version language-reader language-printer language-parser language-read-file language-compilers language-decompilers language-evaluator + language-joiner lookup-compilation-order lookup-decompilation-order invalidate-compilation-cache!)) @@ -44,7 +45,8 @@ (read-file #f) (compilers '()) (decompilers '()) - (evaluator #f)) + (evaluator #f) + (joiner #f)) (define-macro (define-language name . spec) `(begin |