From b5248cb965ad8bf7dbb5c259a2cb7b88af733e88 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 19 Sep 2018 18:35:09 -0400 Subject: [PATCH] Set lambda args in adb --- scheme/cyclone/cps-optimizations.sld | 1 + 1 file changed, 1 insertion(+) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index a83f52cf..8be2643d 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -1990,6 +1990,7 @@ (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-all-params! fnc (ast:lambda-args exp)) (adbf:set-well-known! fnc #t))))) (define (scan exp)