mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

Compile CPS2 directly to bytecode

Browse source 
* module/language/cps2/spec.scm (cps2): Compile directly to bytecode.
This commit is contained in:
Andy Wingo 2015-07-22 17:01:53 +02:00
parent 910054bfbc
commit 39777b11b3
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/cps2/spec.scm
View file

@ -21,7 +21,7 @@
(define-module (language cps2 spec) (define-module (language cps2 spec)
#:use-module (system base language) #:use-module (system base language)
#:use-module (language cps2) #:use-module (language cps2)
#:use-module (language cps2 compile-cps) #:use-module (language cps2 compile-bytecode)
#:export (cps2)) #:export (cps2))
(define* (write-cps exp #:optional (port (current-output-port))) (define* (write-cps exp #:optional (port (current-output-port)))
@ -32,6 +32,6 @@
#:reader (lambda (port env) (read port)) #:reader (lambda (port env) (read port))
#:printer write-cps #:printer write-cps
#:parser parse-cps #:parser parse-cps
#:compilers `((cps . ,compile-cps)) #:compilers `((bytecode . ,compile-bytecode))
#:for-humans? #f #:for-humans? #f
) )