From 11631de447ffac47e1387321e759a42eccf03143 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 2 Jul 2004 14:04:05 +0000 Subject: [PATCH] . original commit: d5eca7d08e545e6fcb80eb2e5abce9293b7b5119 --- collects/mzlib/cm.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mzlib/cm.ss b/collects/mzlib/cm.ss index e01d95f..becfc09 100644 --- a/collects/mzlib/cm.ss +++ b/collects/mzlib/cm.ss @@ -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))]