From 8f7b785ec3cc14abce674b7077a966bde4de2159 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 14 Sep 2018 12:36:05 -0400 Subject: [PATCH] Additional debugging --- scheme/cyclone/cps-optimizations.sld | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index b508a8d1..5012fc9c 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -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.