From 5df8fd92ed8c4e92a4c5b679976b7ff8542818b5 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 25 Sep 2018 17:03:28 -0400
Subject: [PATCH] Cleanup

---
 scheme/cyclone/cps-optimizations.sld | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index a7249ce3..d9470d37 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -42,7 +42,7 @@
       simple-lambda?
       one-instance-of-new-mutable-obj?
       ;; Analysis - well-known lambdas
-      well-known-lambda?
+      well-known-lambda
       analyze:find-known-lambdas
       ;; Analyze variables
       adb:make-var
@@ -1984,8 +1984,10 @@
           exp))
 )
 
+;; well-known-lambda :: symbol -> Either (AST Lambda | Boolean)
 ;; Does the given symbol refer to a well-known lambda?
-(define (well-known-lambda? sym)
+;; If so the corresponding lambda object is returned, else #f.
+(define (well-known-lambda sym)
   (and *well-known-lambda-sym-lookup-tbl*
        (hash-table-ref/default *well-known-lambda-sym-lookup-tbl* sym #f)))