summaryrefslogtreecommitdiff
path: root/module/language/scheme
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/scheme')
-rw-r--r--module/language/scheme/inline.scm6
-rw-r--r--module/language/scheme/translate.scm2
2 files changed, 4 insertions, 4 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 '()))
diff --git a/module/language/scheme/translate.scm b/module/language/scheme/translate.scm
index 100575552..0132ff755 100644
--- a/module/language/scheme/translate.scm
+++ b/module/language/scheme/translate.scm
@@ -22,7 +22,7 @@
(define-module (language scheme translate)
#:use-module (system base pmatch)
#:use-module (system base language)
- #:use-module (language ghil def)
+ #:use-module (language ghil)
#:use-module (language scheme inline)
#:use-module (system vm objcode)
#:use-module (ice-9 receive)