Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 04:25:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixed candidate checking

Browse source
This commit is contained in:
Justin Ethier 2016-06-01 22:49:16 -04:00
parent aae8dc0ccd
commit 667782cab3
1 changed files with 15 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
scheme/cyclone/cps-optimizations.sld
View file

@ -421,24 +421,25 @@
;; TODO: ;; TODO:
;; Find candidates for beta expansion ;; Find candidates for beta expansion
(for-each (for-each
(lambda (id) (lambda (db-entry)
;(trace:error `(check for lambda candidate
(cond (cond
((number? id) ((number? (car db-entry))
;; TODO: this is just exploratory code, can be more efficient ;; TODO: this is just exploratory code, can be more efficient
(let ((app-count 0) (let ((id (car db-entry))
(fnc (cdr db-entry))
(app-count 0)
(app-arg-count 0) (app-arg-count 0)
(reassigned-count 0)) (reassigned-count 0))
(with-fnc! id (lambda (fnc) (for-each
(for-each (lambda (sym)
(lambda (sym) (with-var! sym (lambda (var)
(with-var! sym (lambda (var) (set! app-count (+ app-count (adbv:app-fnc-count var)))
(set! app-count (+ app-count (adbv:app-fnc-count var))) (set! app-arg-count (+ app-arg-count (adbv:app-arg-count var)))
(set! app-arg-count (+ app-arg-count (adbv:app-arg-count var))) (set! reassigned-count (+ reassigned-count (if (adbv:reassigned? var) 1 0)))
(set! reassigned-count (+ reassigned-count (if (adbv:reassigned? var) 1 0))) ))
)) )
) (adbf:assigned-to-var fnc))
(adbf:assigned-to-var fnc))
))
(trace:error `(candidate ,id ,app-count ,app-arg-count ,reassigned-count)) (trace:error `(candidate ,id ,app-count ,app-arg-count ,reassigned-count))
)))) ))))
(hash-table->alist *adb*)) (hash-table->alist *adb*))