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

Simple inlining of immediate calls

Browse source
This commit is contained in:
Ian Price 2015-06-07 16:58:41 +01:00
parent d1a663baec
commit 3b32d180b1
2 changed files with 38 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2,9 +2,11 @@
#:use-module (ice-9 match)
#:use-module ((language js-il) #:renamer (symbol-prefix-proc 'il:))
#:use-module (language javascript)
#:use-module (language js-il direct)
#:export (compile-javascript))
(define (compile-javascript exp env opts)
(set! exp (remove-immediate-calls exp))
(values (compile-exp exp) env env))
(define *scheme* (make-id "scheme"))