original commit: d5eca7d08e545e6fcb80eb2e5abce9293b7b5119
This commit is contained in:
Matthew Flatt 2004-07-02 14:04:05 +00:00
parent f742bfa6ae
commit 11631de447

View File

@ -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))]