.
original commit: d5eca7d08e545e6fcb80eb2e5abce9293b7b5119
This commit is contained in:
parent
f742bfa6ae
commit
11631de447
|
@ -22,12 +22,12 @@
|
|||
(x (apply max x))))
|
||||
|
||||
(define (get-deps code path)
|
||||
(let-values ([(imports fs-imports) (module-compiled-imports code)])
|
||||
(let-values ([(imports fs-imports ft-imports) (module-compiled-imports code)])
|
||||
(map path->bytes
|
||||
(map (lambda (x)
|
||||
(resolve-module-path-index x path))
|
||||
;; Filter symbols:
|
||||
(let loop ([l (append imports fs-imports)])
|
||||
(let loop ([l (append imports fs-imports ft-imports)])
|
||||
(cond
|
||||
[(null? l) null]
|
||||
[(symbol? (car l)) (loop (cdr l))]
|
||||
|
|
Loading…
Reference in New Issue
Block a user