From d0d7fae89ca673dae06785c9e7fc274ba03a90af Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 14 Feb 2019 22:53:12 -0500
Subject: [PATCH] Only memoize pure functions for programs

The problem with doing this for libraries is that it adds a new dependency on (srfi 69). It would be problematic to use a library with these changes as there is no easy way to know this SRFI is also a library dependency.
---
 cyclone.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/cyclone.scm b/cyclone.scm
index 86f37bea..dc55dfb5 100644
--- a/cyclone.scm
+++ b/cyclone.scm
@@ -461,7 +461,9 @@
 
       (define (flag-set? flag)
         (cond
-          ((eq? flag 'memoize-pure-functions) *optimize:memoize-pure-functions*)
+          ((eq? flag 'memoize-pure-functions) 
+           (and program? ;; Only for programs, because SRFI 69 becomes a new dep
+                *optimize:memoize-pure-functions*))
           (else #f)))
 
       (when (> *optimization-level* 0)