move most of the 'scheme' collection to the 'racket' collection
original commit: c95a39875453e7f057395a7bf626e5d2ed732e7e
This commit is contained in:
parent
6890aab175
commit
7f3cf8a3ef
|
@ -12,7 +12,7 @@
|
|||
(only-in '#%kernel [apply kernel:apply])
|
||||
scheme/promise scheme/system
|
||||
(only-in string-constants/private/only-once maybe-print-message)
|
||||
(only-in scheme/match/runtime match:error matchable? match-equality-test)
|
||||
(only-in racket/match/runtime match:error matchable? match-equality-test)
|
||||
(for-template scheme)
|
||||
(rename-in (types abbrev) [-Number N] [-Boolean B] [-Symbol Sym] [-Nat -Nat*]))
|
||||
|
||||
|
|
|
@ -11,7 +11,7 @@
|
|||
(only-in '#%kernel [apply kernel:apply])
|
||||
scheme/promise scheme/system
|
||||
(only-in string-constants/private/only-once maybe-print-message)
|
||||
(only-in scheme/match/runtime match:error matchable? match-equality-test)
|
||||
(only-in racket/match/runtime match:error matchable? match-equality-test)
|
||||
(for-syntax (only-in (types abbrev) [-Number N] [-Boolean B] [-Symbol Sym] [-Real R] [-ExactPositiveInteger -Pos])))
|
||||
|
||||
(define-for-syntax all-num-types (list -Pos -Nat -Integer -ExactRational -Flonum -Real N))
|
||||
|
|
|
@ -12,7 +12,7 @@
|
|||
scheme/promise scheme/system
|
||||
(only-in string-constants/private/only-once maybe-print-message)
|
||||
(only-in mzscheme make-namespace)
|
||||
(only-in scheme/match/runtime match:error matchable? match-equality-test)
|
||||
(only-in racket/match/runtime match:error matchable? match-equality-test)
|
||||
(for-syntax (only-in (types abbrev) [-Number N] [-Boolean B] [-Symbol Sym])
|
||||
(only-in (rep type-rep) make-HashtableTop make-MPairTop make-BoxTop make-VectorTop)))
|
||||
|
||||
|
|
|
@ -7,7 +7,7 @@
|
|||
(only-in scheme/list cons? take drop add-between last filter-map)
|
||||
(only-in rnrs/lists-6 fold-left)
|
||||
'#%paramz
|
||||
(only-in scheme/match/runtime match:error)
|
||||
(only-in racket/match/runtime match:error)
|
||||
scheme/promise
|
||||
string-constants/string-constant
|
||||
;(prefix-in ce: test-engine/scheme-tests)
|
||||
|
|
|
@ -9,7 +9,7 @@
|
|||
"extra-procs.ss"
|
||||
"prims.ss"
|
||||
"base-types.ss"
|
||||
scheme/contract/regions scheme/contract/base
|
||||
racket/contract/regions racket/contract/base
|
||||
(for-syntax
|
||||
"base-types-extra.ss"
|
||||
unstable/debug
|
||||
|
|
|
@ -9,7 +9,7 @@
|
|||
(private typed-renaming)
|
||||
(rep type-rep)
|
||||
(utils tc-utils)
|
||||
scheme/contract/private/provide unstable/list
|
||||
racket/contract/private/provide unstable/list
|
||||
unstable/debug
|
||||
unstable/syntax scheme/struct-info scheme/match
|
||||
"def-binding.ss" syntax/parse)
|
||||
|
|
|
@ -7,7 +7,7 @@
|
|||
unstable/sequence
|
||||
;; fixme - don't need to be bound in this phase - only to make syntax/parse happy
|
||||
scheme/bool
|
||||
(only-in scheme/private/class-internal make-object do-make-object)
|
||||
(only-in racket/private/class-internal make-object do-make-object)
|
||||
(only-in '#%kernel [apply k:apply])
|
||||
;; end fixme
|
||||
(for-syntax syntax/parse scheme/base (utils tc-utils))
|
||||
|
@ -21,7 +21,7 @@
|
|||
(for-template
|
||||
(only-in '#%kernel [apply k:apply])
|
||||
"internal-forms.ss" scheme/base scheme/bool
|
||||
(only-in scheme/private/class-internal make-object do-make-object)))
|
||||
(only-in racket/private/class-internal make-object do-make-object)))
|
||||
|
||||
(import tc-expr^ tc-lambda^ tc-dots^ tc-let^)
|
||||
(export tc-app^)
|
||||
|
|
|
@ -12,11 +12,11 @@
|
|||
(except-in (utils tc-utils stxclass-util))
|
||||
(env lexical-env)
|
||||
(only-in (env type-environments) lookup current-tvars extend-env)
|
||||
scheme/private/class-internal
|
||||
racket/private/class-internal
|
||||
(except-in syntax/parse id)
|
||||
(only-in srfi/1 split-at))
|
||||
|
||||
(require (for-template scheme/base scheme/private/class-internal))
|
||||
(require (for-template scheme/base racket/private/class-internal))
|
||||
|
||||
(import tc-if^ tc-lambda^ tc-app^ tc-let^ check-subforms^)
|
||||
(export tc-expr^)
|
||||
|
|
Loading…
Reference in New Issue
Block a user