guile-vm is completely self-compiling now!

[bpt/guile.git] / module / system / base / language.scm

diff --git a/module/system/base/language.scm b/module/system/base/language.scm
index 87ca077..47c408f 100644 (file)
--- a/module/system/base/language.scm
+++ b/module/system/base/language.scm
@@ -21,7 +21,7 @@
 
 (define-module (system base language)
   :use-syntax (system base syntax)
-  :export (define-language lookup-language
+  :export (define-language lookup-language make-language
            language-name language-title language-version language-reader
            language-printer language-read-file language-expander
            language-translator language-evaluator language-environment))
@@ -39,7 +39,7 @@
                           ))
 
 (define-macro (define-language name . spec)
-  `(define ,name (,make-language :name ',name ,@spec)))
+  `(define ,name (make-language :name ',name ,@spec)))
 
 (define (lookup-language name)
   (let ((m (resolve-module `(language ,name spec))))