diff options
Diffstat (limited to 'module/language/ghil/spec.scm')
-rw-r--r-- | module/language/ghil/spec.scm | 9 |
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)) ) |