HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
nifty generic compiler infrastructure -- no more hardcoded passes
[bpt/guile.git]
/
module
/
language
/
ghil
/
spec.scm
diff --git
a/module/language/ghil/spec.scm
b/module/language/ghil/spec.scm
index
6e07f02
..
d40945d
100644
(file)
--- 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)
(define-module (language ghil spec)
#:use-module (system base language)
+ #:use-module (language glil spec)
#:use-module (system il ghil)
#: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))
#: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)))))
(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
#:version "0.3"
#:reader read
#:printer write-ghil
- #:translator translate
+ #:parser parse
+ #:compilers `((,glil . ,compile-il))
)
)