From 81f000a6ee7d08b48df8f73061c48a71ed6abd22 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 11 May 2017 19:02:13 -0400 Subject: [PATCH] WIP --- scheme/cyclone/cps-optimizations.sld | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index dc02dbe1..20146cc7 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -1167,7 +1167,8 @@ (let* ((args (cdr exp)) (var (adb:get (car exp))) ;; Function definition, or #f if none - (fnc (adbv:assigned-value var)) + (fnc* (adbv:assigned-value var)) + (fnc (if (pair? fnc*) (car fnc*) fnc*)) (formals (if (ast:lambda? fnc) (ast:lambda-args fnc) '())) ;; First formal, or #f if none (maybe-cont (if (and (list? formals) (pair? formals))