diff options
Diffstat (limited to 'module/language/scheme')
-rw-r--r-- | module/language/scheme/inline.scm | 6 | ||||
-rw-r--r-- | module/language/scheme/translate.scm | 2 |
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) |