mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

Rewrite js-il inliner

Browse source
This commit is contained in:
Ian Price 2015-06-20 20:58:29 +01:00
parent 2e10f55426
commit f0537e39ee
4 changed files with 208 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/js-il/compile-javascript.scm
View file

@ -4,7 +4,7 @@
#:use-module ((language js-il) #:renamer (symbol-prefix-proc 'il:))
#:use-module (language javascript)
#:use-module (language javascript simplify)
#:use-module (language js-il direct)
#:use-module (language js-il inlining)
#:use-module (system foreign)
#:export (compile-javascript))
@ -15,7 +15,7 @@
(eqv? obj (pointer->scm (make-pointer unbound-bits))))
(define (compile-javascript exp env opts)
(set! exp (remove-immediate-calls exp))
(set! exp (inline-single-calls exp))
(set! exp (compile-exp exp))
(set! exp (flatten-blocks exp))
(values exp env env))