diff --git a/collects/mzlib/class.ss b/collects/mzlib/class.ss index ecf8218..536df91 100644 --- a/collects/mzlib/class.ss +++ b/collects/mzlib/class.ss @@ -37,7 +37,7 @@ private public override augment pubment overment augride public-final override-final augment-final - field init init-field + field init init-field init-rest rename-super rename-inner inherit inherit/super inherit/inner inherit-field this super inner super-make-object super-instantiate super-new diff --git a/collects/mzlib/cm.ss b/collects/mzlib/cm.ss index 11a1a31..3ee4c4e 100644 --- a/collects/mzlib/cm.ss +++ b/collects/mzlib/cm.ss @@ -25,12 +25,12 @@ (x (apply max x)))) (define (get-deps code path) - (let-values ([(imports fs-imports ft-imports) (module-compiled-imports code)]) + (let-values ([(imports fs-imports ft-imports fl-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 ft-imports)]) + (let loop ([l (append imports fs-imports ft-imports fl-imports)]) (cond [(null? l) null] [(symbol? (car l)) (loop (cdr l))] diff --git a/collects/mzlib/for.ss b/collects/mzlib/for.ss index ec9a8f6..2d242d4 100644 --- a/collects/mzlib/for.ss +++ b/collects/mzlib/for.ss @@ -29,6 +29,7 @@ stop-after (rename *in-indexed in-indexed) + sequence? sequence-generate define-sequence-syntax