summaryrefslogtreecommitdiff
path: root/module/language/scheme
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-01-09 17:49:09 +0100
committerAndy Wingo <wingo@pobox.com>2009-01-09 17:49:09 +0100
commitca445ba5ec5babe2d160061ed627570e36a28dd1 (patch)
treec0d44488556de14ab1d8fc4b3c6e6c691ee87cc1 /module/language/scheme
parente3ba263de48a2a7cce27f773bd9be079eb5517db (diff)
downloadguile-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.am2
-rw-r--r--module/language/scheme/compile-ghil.scm (renamed from module/language/scheme/translate.scm)10
-rw-r--r--module/language/scheme/spec.scm4
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
)