Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +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:
;; Find candidates for beta expansion
(for-each
(lambda (id)
(lambda (db-entry)
;(trace:error `(check for lambda candidate
(cond
((number? id)
((number? (car db-entry))
;; 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)
(reassigned-count 0))
(with-fnc! id (lambda (fnc)
(for-each
(lambda (sym)
(with-var! sym (lambda (var)
(set! app-count (+ app-count (adbv:app-fnc-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)))
))
)
(adbf:assigned-to-var fnc))
))
(for-each
(lambda (sym)
(with-var! sym (lambda (var)
(set! app-count (+ app-count (adbv:app-fnc-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)))
))
)
(adbf:assigned-to-var fnc))
(trace:error `(candidate ,id ,app-count ,app-arg-count ,reassigned-count))
))))
(hash-table->alist *adb*))