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

WIP

Browse source
This commit is contained in:
Justin Ethier 2019-02-14 13:59:07 -05:00
parent 5992123c15
commit f16b3fec93
1 changed files with 13 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
cyclone.scm
View file

@ -433,14 +433,25 @@
(trace:info "---------------- after CPS:")
(trace:info (ast:ast->pp-sexp input-program))
(define (inject-import lis)
(let ((dep (lib:list->import-set lis)))
(when (not (member dep lib-deps))
(set! lib-deps (cons dep lib-deps))
(change-lib-deps! lib-deps)))
)
(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)))
;(set! lib-deps (cons dep lib-deps))
;(change-lib-deps! lib-deps)
)
)
(inject-import '(srfi 69))
(inject-import '(scheme char))
(set! module-globals (append module-globals lis))
(set! globals (append globals lis))