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

Reify primitives in CPS2

Browse source 
* module/language/cps/reify-primitives.scm: Remove.
* module/language/cps2/reify-primitives.scm: New file.
* module/Makefile.am: Adapt build.

* module/language/cps/compile-bytecode.scm:
* module/language/cps2/compile-cps.scm: Reify primitives in CPS2 instead
  of CPS.
This commit is contained in:
Andy Wingo 2015-07-16 11:27:14 +02:00
parent 90aabcc565
commit 1a819eaaa7
5 changed files with 149 additions and 181 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/language/cps/compile-bytecode.scm
View file

@ -29,7 +29,6 @@
#:use-module (language cps)
#:use-module (language cps dfg)
#:use-module (language cps primitives)
#:use-module (language cps reify-primitives)
#:use-module (language cps renumber)
#:use-module (language cps slot-allocation)
#:use-module (system vm assembler)
@ -443,7 +442,7 @@
(compile-entry)))))
(define (compile-bytecode exp env opts)
(let* ((exp (renumber (reify-primitives exp)))
(let* ((exp (renumber exp))
(asm (make-assembler)))
(match exp
(($ $program funs)