Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-09 22:17:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Re-enable inline searching code

Browse source
This commit is contained in:
Justin Ethier 2017-04-18 09:02:44 +00:00
parent 33ba61578b
commit 547d1e218d
1 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
cyclone.scm
View file

@ -217,18 +217,18 @@
(trace:info input-program) ;pretty-print (trace:info input-program) ;pretty-print
;; Identify native Scheme functions that can be inlined ;; Identify native Scheme functions that can be inlined
; (define inlinable-scheme-fncs '()) (define inlinable-scheme-fncs '())
; (for-each (for-each
; (lambda (e) (lambda (e)
; (when (inlinable-top-level-function? e) (when (inlinable-top-level-function? e)
; (set! inlinable-scheme-fncs (set! inlinable-scheme-fncs
; (cons (define->var e) inlinable-scheme-fncs)) (cons (define->var e) inlinable-scheme-fncs))
; ;; TESTING, will not work yet ;; TESTING, will not work yet
; (prim:add-udf! (define->var e) (define-c->inline-var e)) ;(prim:add-udf! (define->var e) (define-c->inline-var e))
; )) ))
; input-program) input-program)
; (trace:info "---------------- results of inlinable-top-level-function analysis: ") (trace:info "---------------- results of inlinable-top-level-function analysis: ")
; (trace:info inlinable-scheme-fncs) (trace:info inlinable-scheme-fncs)
;; Convert some function calls to primitives, if possible ;; Convert some function calls to primitives, if possible
(set! input-program (set! input-program