summaryrefslogtreecommitdiff
path: root/module/language/ghil/spec.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/ghil/spec.scm')
-rw-r--r--module/language/ghil/spec.scm9
1 files changed, 6 insertions, 3 deletions
diff --git a/module/language/ghil/spec.scm b/module/language/ghil/spec.scm
index 6e07f0265..d40945d6d 100644
--- a/module/language/ghil/spec.scm
+++ b/module/language/ghil/spec.scm
@@ -21,14 +21,16 @@
(define-module (language ghil spec)
#:use-module (system base language)
+ #:use-module (language glil spec)
#:use-module (system il ghil)
+ #:use-module ((system il compile) #:select ((compile . compile-il)))
#:export (ghil))
(define (write-ghil exp . port)
(apply write (unparse-ghil exp) port))
-(define (translate x e)
- (call-with-ghil-environment e '()
+(define (parse x)
+ (call-with-ghil-environment (make-ghil-toplevel-env e) '()
(lambda (env vars)
(make-ghil-lambda env #f vars #f '() (parse-ghil env x)))))
@@ -37,5 +39,6 @@
#:version "0.3"
#:reader read
#:printer write-ghil
- #:translator translate
+ #:parser parse
+ #:compilers `((,glil . ,compile-il))
)