mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-12 23:37:38 +02:00
WIP
This commit is contained in:
parent
5992123c15
commit
f16b3fec93
1 changed files with 13 additions and 2 deletions
15
cyclone.scm
15
cyclone.scm
|
@ -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))
|
||||
|
|
Loading…
Add table
Reference in a new issue