3.99.0.3: improved namespace API

svn: r7756

original commit: 391892a848cc5119c42962d68730c4b391833d07

collects/scheme/private/old-procs.ss

@@ -6,22 +6,22 @@
              "stxmz-body.ss"
              "define.ss")
 
-  (#%provide make-namespace*
+  (#%provide make-namespace
              free-identifier=?*
              namespace-transformer-require)
 
   (define reflect-var #f)
   
-  (define make-namespace*
+  (define make-namespace
     (case-lambda
-     [() (make-namespace* 'initial)]
+     [() (make-namespace 'initial)]
      [(flag)
       (unless (memq flag '(initial empty))
         (raise-syntax-error 'make-namespace
                             "'initial or 'empty"
                             flag))
-      (let ([new (make-namespace)]
-            [old (variable-reference-namespace (#%variable-reference reflect-var))])
+      (let ([new (make-empty-namespace)]
+            [old (variable-reference->empty-namespace (#%variable-reference reflect-var))])
         (namespace-attach-module old 'mzscheme new)
         (parameterize ([current-namespace new])
           (namespace-require 'mzscheme))

collects/tests/mzscheme/contract-test.ss

@@ -9,7 +9,6 @@
   (define contract-namespace 
     (let ([n (make-base-namespace)])
       (parameterize ([current-namespace n])
-        (namespace-require 'scheme/base)
         (namespace-require '(for-syntax scheme/base))
         (namespace-require '(for-template scheme/base))
         (namespace-require 'scheme/contract)

collects/tests/mzscheme/unit.ss

@@ -599,7 +599,6 @@
 
 (test 55 'namespace
       (parameterize ([current-namespace (make-base-namespace)])
-        (namespace-require 'scheme/base)
 	(namespace-variable-bind/invoke-unit
 	 (x)
 	 (unit 

collects/tests/mzscheme/unitsig.ss

@@ -608,7 +608,6 @@
 (test 120
       'namespace
       (parameterize ([current-namespace (make-base-namespace)])
-        (namespace-require 'scheme/base)
 	(namespace-variable-bind/invoke-unit/sig
 	 (foo)
 	 (unit/sig (foo)