suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: d5eca7d08e545e6fcb80eb2e5abce9293b7b5119
This commit is contained in:
Matthew Flatt 2004-07-02 14:04:05 +00:00
parent f742bfa6ae
commit 11631de447
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mzlib/cm.ss
View File

@ -22,12 +22,12 @@
(x (apply max x)))) (x (apply max x))))
(define (get-deps code path) (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 path->bytes
(map (lambda (x) (map (lambda (x)
(resolve-module-path-index x path)) (resolve-module-path-index x path))
;; Filter symbols: ;; Filter symbols:
(let loop ([l (append imports fs-imports)]) (let loop ([l (append imports fs-imports ft-imports)])
(cond (cond
[(null? l) null] [(null? l) null]
[(symbol? (car l)) (loop (cdr l))] [(symbol? (car l)) (loop (cdr l))]