diff options
author | Andy Wingo <wingo@pobox.com> | 2009-01-08 19:24:47 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-01-08 19:25:38 +0100 |
commit | 9ff56d9e65fa9292ef09a8ca01abd825147b37ac (patch) | |
tree | f74537c9bb6941db3086ab6bf969b0f1298be60f /module/language/scheme/inline.scm | |
parent | d9042285bab866ca61b213dda1bafef8eede5709 (diff) | |
download | guile-9ff56d9e65fa9292ef09a8ca01abd825147b37ac.tar.gz |
(language ghil def) becomes (language ghil)
* module/language/Makefile.am:
* module/language/ghil/Makefile.am:
* module/language/ghil.scm:
* module/language/ghil/compile-glil.scm:
* module/language/ghil/spec.scm:
* module/language/glil/Makefile.am:
* module/language/glil.scm:
* module/language/glil/compile-objcode.scm:
* module/language/glil/spec.scm:
* module/language/scheme/inline.scm:
* module/language/scheme/translate.scm:
* module/oop/goops.scm: Rename (language ghil def) and (language glil
def) to not have the "def". They're nicer names.
Diffstat (limited to 'module/language/scheme/inline.scm')
-rw-r--r-- | module/language/scheme/inline.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/language/scheme/inline.scm b/module/language/scheme/inline.scm index 457ef0dd9..47fb6724f 100644 --- a/module/language/scheme/inline.scm +++ b/module/language/scheme/inline.scm @@ -21,7 +21,7 @@ (define-module (language scheme inline) #:use-module (system base syntax) - #:use-module (language ghil def) + #:use-module (language ghil) #:use-module (srfi srfi-16) #:export (*inline-table* define-inline try-inline try-inline-with-env)) @@ -57,8 +57,8 @@ `(set! (@ (language scheme inline) *inline-table*) (assq-set! (@ (language scheme inline) *inline-table*) ,sym - (let ((make-ghil-inline (@ (language ghil def) make-ghil-inline)) - (make-ghil-quote (@ (language ghil def) make-ghil-quote)) + (let ((make-ghil-inline (@ (language ghil) make-ghil-inline)) + (make-ghil-quote (@ (language ghil) make-ghil-quote)) (try-inline (@ (language scheme inline) try-inline))) (case-lambda ,@(let lp ((in clauses) (out '())) |