Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 04:55:04 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix injection of imports

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

4
cyclone.scm
View file

@ -436,7 +436,7 @@
(define (inject-import lis) (define (inject-import lis)
(let ((dep (lib:list->import-set lis))) (let ((dep (lib:list->import-set lis)))
(when (not (member dep lib-deps)) (when (not (member dep lib-deps))
(set! lib-deps (cons dep lib-deps)) (set! lib-deps (append lib-deps (list dep)))
(change-lib-deps! lib-deps))) (change-lib-deps! lib-deps)))
) )
@ -450,8 +450,8 @@
;(change-lib-deps! lib-deps) ;(change-lib-deps! lib-deps)
) )
) )
(inject-import '(srfi 69))
(inject-import '(scheme char)) (inject-import '(scheme char))
(inject-import '(srfi 69))
(set! module-globals (append module-globals lis)) (set! module-globals (append module-globals lis))
(set! globals (append globals lis)) (set! globals (append globals lis))