Updated typed scheme to use a module path for blame.

svn: r17754

collects/typed-scheme/typecheck/tc-toplevel.ss

@@ -18,6 +18,7 @@
          "def-binding.ss"
          (for-template
           "internal-forms.ss"
+          unstable/location
           mzlib/contract
           scheme/base))
 
@@ -257,7 +258,7 @@
         ([the-variable-reference (generate-temporary #'blame)]
          [((new-provs ...) ...) (map (generate-prov stx-defs val-defs #'the-variable-reference) provs)])
       #`(begin
-          (define the-variable-reference (#%variable-reference))
+          (define the-variable-reference (quote-module-path))
            #,(env-init-code)
            #,(tname-env-init-code)
            #,(talias-env-init-code)