diff options
Diffstat (limited to 'module')
-rw-r--r-- | module/language/ghil.scm | 2 | ||||
-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 | ||||
-rw-r--r-- | module/oop/goops.scm | 2 |
5 files changed, 10 insertions, 10 deletions
diff --git a/module/language/ghil.scm b/module/language/ghil.scm index 5180073c2..336cd9510 100644 --- a/module/language/ghil.scm +++ b/module/language/ghil.scm @@ -404,7 +404,7 @@ ((call ,proc . ,args) (make-ghil-call env loc (retrans proc) (map retrans args))) - ((mv-call ,producer . ,consumer) + ((mv-call ,producer ,consumer) (make-ghil-mv-call env loc (retrans producer) (retrans consumer))) ((inline ,op . ,args) 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 ) diff --git a/module/oop/goops.scm b/module/oop/goops.scm index 2f6625c3f..453e0a9dd 100644 --- a/module/oop/goops.scm +++ b/module/oop/goops.scm @@ -1060,7 +1060,7 @@ (eval-case ((load-toplevel compile-toplevel) - (use-modules ((language scheme translate) :select (define-scheme-translator)) + (use-modules ((language scheme compile-ghil) :select (define-scheme-translator)) ((language ghil) :select (make-ghil-inline)) (system base pmatch)) |