Fix namespace issues with compile-time expand.

Fix error reporting.

svn: r9576

original commit: f410bcf3a288f9c41b836495d12f8867060802ec

collects/typed-scheme/private/base-env.ss

@@ -412,12 +412,12 @@
       string-constants/string-constant]
      ;; make-promise 
      
-     [(cadr (syntax->list (expand #'(delay 3)))) 
+     [(cadr (syntax->list (expand '(delay 3))))
       (-poly (a) (-> (-> a) (-Promise a)))
       scheme/promise]
      ;; qq-append
      
-     [(cadr (syntax->list (expand #'`(,@'() 1)))) 
+     [(cadr (syntax->list (expand '`(,@'() 1)))) 
       (-poly (a b) 
              (cl->*
               (-> (-lst a) (-val '()) (-lst a))

collects/typed-scheme/private/type-effect-convenience.ss

@@ -204,6 +204,7 @@
                                                                ns)
                                       ns)])
                                (parameterize ([current-namespace new-ns])
+                                 (namespace-require 'scheme/base)
                                  (namespace-require 'extra-mods) ...
                                  e))
                              ty)]))