From edf3c0e87f932d998d46e467386cb871dfbbe565 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 24 Sep 2018 13:38:02 -0400 Subject: [PATCH] Use default value to prevent raising an error --- scheme/cyclone/cps-optimizations.sld | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index 680d877b..28d53216 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -738,8 +738,8 @@ ; Core forms: ((ast:lambda? exp) (let* ((id (ast:lambda-id exp)) - (fnc (adb:get id))) - (if (adbf:simple fnc) + (fnc (adb:get/default id #f))) + (if (and fnc (adbf:simple fnc)) (opt:contract (caar (ast:lambda-body exp))) ;; Optimize-out the lambda (ast:%make-lambda (ast:lambda-id exp)