diff options
| author | Mark H Weaver <mhw@netris.org> | 2013-01-27 10:10:21 -0500 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2013-01-27 10:16:40 -0500 |
| commit | b34e25359aad4a08e15de8c5a150ebcff55ff7c1 (patch) | |
| tree | 1af6c311b8fecfddf236ef7cbbec7955bbc791db /module/system/base | |
| parent | 13ff681c33a0ff6ff6004d44126697f6dea3ec73 (diff) | |
Add 'for-humans?' flag to <language> specifications.
* module/system/base/language.scm (<language>): Add 'for-humans?'
field, and export new 'language-for-humans?' predicate.
* doc/ref/compiler.texi (Compiler Tower): Document.
* module/language/assembly/spec.scm, module/language/bytecode/spec.scm,
module/language/glil/spec.scm, module/language/objcode/spec.scm,
module/language/tree-il/spec.scm, module/language/value/spec.scm:
Mark these languages as 'for-humans?'.
Diffstat (limited to 'module/system/base')
| -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 81b43b70d..5d927e061 100644 --- a/module/system/base/language.scm +++ b/module/system/base/language.scm @@ -25,7 +25,8 @@ language-name language-title language-reader language-printer language-parser language-compilers language-decompilers language-evaluator - language-joiner language-make-default-environment + language-joiner language-for-humans? + language-make-default-environment lookup-compilation-order lookup-decompilation-order invalidate-compilation-cache! default-environment @@ -49,6 +50,7 @@ (decompilers '()) (evaluator #f) (joiner #f) + (for-humans? #t) (make-default-environment make-fresh-user-module)) (define-macro (define-language name . spec) |