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

Additional debugging

Browse source
This commit is contained in:
Justin Ethier 2018-09-14 12:36:05 -04:00
parent dbd1e4799f
commit 8f7b785ec3
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1958,9 +1958,11 @@
(define (remove-candidate param-sym)
(hash-table-delete! candidates param-sym))
(define (found exp)
(define (found exp . sym)
(let ((lid (ast:lambda-id exp)))
(trace:info `(found known lambda with id ,lid))
(if (null? sym)
(trace:info `(found known lambda with id ,lid))
(trace:info `(found known lambda with id ,lid sym ,(car sym))))
(with-fnc! lid (lambda (fnc)
(adbf:set-well-known! fnc #t)))))
@ -2016,7 +2018,7 @@
;; Record all well-known lambdas that were found indirectly
(for-each
(lambda (sym/lamb)
(found (cdr sym/lamb)))
(found (cdr sym/lamb) (car sym/lamb)))
(hash-table->alist candidates))
;; Save the candidate list so we can use it to lookup
;; well-known lambda's by var references to them.