From b01ab9a6717bf4871fc82ec40b77b55a8c916532 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 14 Feb 2019 16:56:05 -0500 Subject: [PATCH] Add missing Cyc-memoize even if srfi 69 is there --- cyclone.scm | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/cyclone.scm b/cyclone.scm index 226ba5f9..1cc1d04c 100644 --- a/cyclone.scm +++ b/cyclone.scm @@ -442,13 +442,9 @@ (define (inject-globals! lis) ;; TODO: done here as proof-of-concept - (let ((dep (lib:list->import-set '(srfi 69)))) - (when (not (member dep lib-deps)) - (set! globals (append globals '(Cyc-memoize))) - (set! imported-vars (cons (lib:list->import-set '(Cyc-memoize srfi 69)) imported-vars)) - ;(set! lib-deps (cons dep lib-deps)) - ;(change-lib-deps! lib-deps) - ) + (when (not (member globals 'Cyc-memoize)) + (set! globals (append globals '(Cyc-memoize))) + (set! imported-vars (cons (lib:list->import-set '(Cyc-memoize srfi 69)) imported-vars)) ) (inject-import '(scheme char)) (inject-import '(srfi 69))