From e8aa42e247f047d5b2bfb33862f97e8853d5effe Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 27 Jul 2017 11:43:49 +0000
Subject: [PATCH] Issue #207 - Added comments

---
 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 7c094e1d..03db9a47 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -718,9 +718,10 @@
                      (cons 
                        fnc
                        (map (lambda (e) (opt:contract e)) (cdr exp)))))
+               ;; Perform constant folding if possible
                (if (and (prim-call? exp)
                         (precompute-prim-app? result))
-                   (with-handler
+                   (with-handler ;; Safety check, keep going if eval fails
                       (lambda (err) result)
                       (eval result *contract-env*))
                    result))