Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-12 15:27:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add missing Cyc-memoize even if srfi 69 is there

Browse source
This commit is contained in:
Justin Ethier 2019-02-14 16:56:05 -05:00
parent 70264e001e
commit b01ab9a671
1 changed files with 3 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
cyclone.scm
View file

@ -442,13 +442,9 @@
(define (inject-globals! lis) (define (inject-globals! lis)
;; TODO: done here as proof-of-concept ;; TODO: done here as proof-of-concept
(let ((dep (lib:list->import-set '(srfi 69)))) (when (not (member globals 'Cyc-memoize))
(when (not (member dep lib-deps)) (set! globals (append globals '(Cyc-memoize)))
(set! globals (append globals '(Cyc-memoize))) (set! imported-vars (cons (lib:list->import-set '(Cyc-memoize srfi 69)) imported-vars))
(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)
)
) )
(inject-import '(scheme char)) (inject-import '(scheme char))
(inject-import '(srfi 69)) (inject-import '(srfi 69))