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

Simplify output Javascript

Browse source
This commit is contained in:
Ian Price 2015-06-13 15:29:13 +01:00
parent e9d0f97410
commit 46905ec322
2 changed files with 52 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -3,6 +3,7 @@
#:use-module (ice-9 match)
#: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 (system foreign)
#:export (compile-javascript))
@ -15,7 +16,9 @@
(define (compile-javascript exp env opts)
(set! exp (remove-immediate-calls exp))
(values (compile-exp exp) env env))
(set! exp (compile-exp exp))
(set! exp (flatten-blocks exp))
(values exp env env))
(define *scheme* (make-id "scheme"))