3.99.0.13: generalize require and provide to work with arbitrary phases

svn: r8742

original commit: ba63bd6f954b4b1ce09225f4b55dbe7c3a93a46b

collects/mzlib/cm.ss

@@ -25,11 +25,11 @@
       (x (apply max x))))
   
   (define (get-deps code path)
-    (let-values ([(imports fs-imports ft-imports fl-imports) (module-compiled-imports code)])
+    (let-values ([(imports) (apply append (map cdr (module-compiled-imports code)))])
       (map path->bytes
            (let ([l (map (lambda (x)
                            (resolve-module-path-index x path))
-                         (append imports fs-imports ft-imports fl-imports))])
+                         imports)])
              ;; Filter symbols:
              (let loop ([l l])
                (cond

collects/mzlib/match.ss

@@ -133,7 +133,6 @@
 	    "private/match/match-error.ss"
 	    "private/match/test-no-order.ss")
   
-  
   (define-syntax match-definer
     (syntax-rules ()
       [(match-definer name clauses ...)

collects/scheme/private/old-rp.ss

@@ -38,13 +38,13 @@
                   (if for-stx
                       (with-syntax ([for for-stx])
                         (syntax/loc stx
-                          (#%require (for elem ...))))
+                          (#%require (for-meta for (just-meta 0 elem ...)))))
                       (syntax/loc stx
                         (#%require elem ...)))])))])
       (values (mk #f)
-              (mk #'for-syntax)
+              (mk #'1)
-              (mk #'for-template)
+              (mk #'-1)
-              (mk #'for-label))))
+              (mk #'#f))))
 
   (define-syntaxes (provide provide-for-syntax provide-for-label)
     (let ([mk