From 2c418ec33da9802ea1ceab428f4fd154c959ebe1 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 13 Feb 2019 10:41:02 -0500 Subject: [PATCH] Fix extraction of options --- scheme/cyclone/cps-optimizations.sld | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index 68ad2834..a458f841 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -1716,8 +1716,8 @@ ) ;; Memoize pure functions, if instructed - (let ((module-globals-pair (assoc 'module-globals options))) - (when (and module-globals-pair #t ;; TODO: (assoc 'memoize-pure-functions options) + (let ((module-globals-pair (assoc 'module-globals (car options)))) + (when (and module-globals-pair #t ;; TODO: (assoc 'memoize-pure-functions (car options)) ) (set! new-ast (opt:memoize-pure-fncs new-ast (cdr module-globals-pair)))) )