371.2

svn: r7263

original commit: e4cbc4e6a938fd5bd90aab305ca39d61e7eae151

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

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

collects/mzlib/for.ss

@@ -29,6 +29,7 @@
            stop-after
            (rename *in-indexed in-indexed)
            
+           sequence?
            sequence-generate
            
            define-sequence-syntax