From dab0d9a5703b15bb63dc41fda6ad410d5f4bebba Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 12 Feb 2019 14:03:54 -0500 Subject: [PATCH] Extract data from pair --- scheme/cyclone/cps-optimizations.sld | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index b2632534..68ad2834 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -1716,10 +1716,10 @@ ) ;; Memoize pure functions, if instructed - (let ((module-globals (assoc 'module-globals options))) - (when (and module-globals #t ;; TODO: (assoc 'memoize-pure-functions options) + (let ((module-globals-pair (assoc 'module-globals options))) + (when (and module-globals-pair #t ;; TODO: (assoc 'memoize-pure-functions options) ) - (set! new-ast (opt:memoize-pure-fncs new-ast module-globals))) + (set! new-ast (opt:memoize-pure-fncs new-ast (cdr module-globals-pair)))) ) new-ast )