summaryrefslogtreecommitdiff
path: root/module/language/scheme/inline.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-01-08 19:24:47 +0100
committerAndy Wingo <wingo@pobox.com>2009-01-08 19:25:38 +0100
commit9ff56d9e65fa9292ef09a8ca01abd825147b37ac (patch)
treef74537c9bb6941db3086ab6bf969b0f1298be60f /module/language/scheme/inline.scm
parentd9042285bab866ca61b213dda1bafef8eede5709 (diff)
downloadguile-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.scm6
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 '()))