Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 08:47:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP

Browse source
This commit is contained in:
Justin Ethier 2017-04-18 07:47:32 +00:00
parent f1d5bb6f83
commit 124c137987
1 changed files with 14 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
cyclone.scm
View file

@ -216,6 +216,20 @@
(trace:info "---------------- after alpha conversion:")
(trace:info input-program) ;pretty-print
;; Identify native Scheme functions that can be inlined
; (define inlinable-scheme-fncs '())
; (for-each
; (lambda (e)
; (when (inlinable-top-level-function? e)
; (set! inlinable-scheme-fncs
; (cons (define->var e) inlinable-scheme-fncs))
; ;; TESTING, will not work yet
; (prim:add-udf! (define->var e) (define-c->inline-var e))
; ))
; input-program)
; (trace:info "---------------- results of inlinable-top-level-function analysis: ")
; (trace:info inlinable-scheme-fncs)
;; Convert some function calls to primitives, if possible
(set! input-program
(map
@ -224,13 +238,6 @@
input-program))
(trace:info "---------------- after func->primitive conversion:")
(trace:info input-program) ;pretty-print
(trace:info "---------------- results of inlinable-top-level-function analysis: ")
(for-each
(lambda (e)
(if (inlinable-top-level-function? e)
(trace:info (define->var e))))
input-program)
(let ((cps (map
(lambda (expr)