diff options
author | Andy Wingo <wingo@pobox.com> | 2009-01-09 17:49:09 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-01-09 17:49:09 +0100 |
commit | ca445ba5ec5babe2d160061ed627570e36a28dd1 (patch) | |
tree | c0d44488556de14ab1d8fc4b3c6e6c691ee87cc1 /module/language/scheme | |
parent | e3ba263de48a2a7cce27f773bd9be079eb5517db (diff) | |
download | guile-ca445ba5ec5babe2d160061ed627570e36a28dd1.tar.gz |
rename translate.scm to compile-ghil.scm, and more work on compiler.texi
* doc/ref/api-evaluation.texi: Fix some typos and xrefs.
* doc/ref/compiler.texi (The Scheme Compiler): Document the scheme
compiler, and start documenting the GHIL language.
* doc/ref/guile.texi (Guile Implementation): Whoops, put autoconf after
the implementation foo. Unless we want it before?
* doc/ref/history.texi (The Emacs Thesis): Fix typo.
* doc/ref/vm.texi (Environment Control Instructions): Rename offset to
index.
* module/language/ghil.scm (parse-ghil): Fix what I think was a bug --
the consumer in a mv-call shouldn't be a rest arg.
* module/language/scheme/Makefile.am (SOURCES):
* module/language/scheme/compile-ghil.scm: Rename this file from
translate.scm.
* module/oop/goops.scm:
* module/language/scheme/spec.scm: Deal with renaming.
Diffstat (limited to 'module/language/scheme')
-rw-r--r-- | module/language/scheme/Makefile.am | 2 | ||||
-rw-r--r-- | module/language/scheme/compile-ghil.scm (renamed from module/language/scheme/translate.scm) | 10 | ||||
-rw-r--r-- | module/language/scheme/spec.scm | 4 |
3 files changed, 8 insertions, 8 deletions
diff --git a/module/language/scheme/Makefile.am b/module/language/scheme/Makefile.am index 468543b0a..ca1d662f4 100644 --- a/module/language/scheme/Makefile.am +++ b/module/language/scheme/Makefile.am @@ -1,3 +1,3 @@ -SOURCES = translate.scm spec.scm inline.scm +SOURCES = compile-ghil.scm spec.scm inline.scm modpath = language/scheme include $(top_srcdir)/am/guilec diff --git a/module/language/scheme/translate.scm b/module/language/scheme/compile-ghil.scm index 0132ff755..19ced1df2 100644 --- a/module/language/scheme/translate.scm +++ b/module/language/scheme/compile-ghil.scm @@ -19,7 +19,7 @@ ;;; Code: -(define-module (language scheme translate) +(define-module (language scheme compile-ghil) #:use-module (system base pmatch) #:use-module (system base language) #:use-module (language ghil) @@ -29,7 +29,7 @@ #:use-module (ice-9 optargs) #:use-module ((ice-9 syncase) #:select (sc-macro)) #:use-module ((system base compile) #:select (syntax-error)) - #:export (translate translate-1 + #:export (compile-ghil translate-1 *translate-table* define-scheme-translator)) @@ -59,7 +59,7 @@ -(define (translate x e opts) +(define (compile-ghil x e opts) (save-module-excursion (lambda () (and=> (cenv-module e) set-current-module) @@ -158,11 +158,11 @@ (define *translate-table* (make-hash-table)) (define-macro (define-scheme-translator sym . clauses) - `(hashq-set! (@ (language scheme translate) *translate-table*) + `(hashq-set! (@ (language scheme compile-ghil) *translate-table*) ,sym (lambda (e l exp) (define (retrans x) - ((@ (language scheme translate) translate-1) e #f x)) + ((@ (language scheme compile-ghil) translate-1) e #f x)) (define syntax-error (@ (system base compile) syntax-error)) (pmatch (cdr exp) ,@clauses diff --git a/module/language/scheme/spec.scm b/module/language/scheme/spec.scm index 3f5a70916..ddcd69f12 100644 --- a/module/language/scheme/spec.scm +++ b/module/language/scheme/spec.scm @@ -21,7 +21,7 @@ (define-module (language scheme spec) #:use-module (system base language) - #:use-module (language scheme translate) + #:use-module (language scheme compile-ghil) #:use-module (language ghil spec) #:export (scheme)) @@ -46,7 +46,7 @@ #:version "0.5" #:reader read #:read-file read-file - #:compilers `((,ghil . ,translate)) + #:compilers `((,ghil . ,compile-ghil)) #:evaluator (lambda (x module) (primitive-eval x)) #:printer write ) |