suzanne.soy/typed-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

unstable/sequence -> racket/sequence

Browse Source 
And move to TR one of the functions that didn't make it.
This commit is contained in:
Vincent St-Amour 2015-08-07 17:31:01 -05:00
parent 4f050888e2
commit b6362e7eb3
30 changed files with 42 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
typed-racket-lib/typed-racket/base-env/base-env-numeric.rkt
View File

@ -4,7 +4,7 @@
(require
(for-syntax racket/base racket/syntax syntax/parse)
(only-in (rep type-rep) Type/c? make-Values)
racket/list racket/math racket/flonum racket/extflonum racket/unsafe/ops unstable/sequence racket/match
racket/list racket/math racket/flonum racket/extflonum racket/unsafe/ops racket/sequence racket/match
(for-template racket/flonum racket/extflonum racket/fixnum racket/math racket/unsafe/ops racket/base
(only-in "../types/numeric-predicates.rkt" index?))
(only-in (types abbrev numeric-tower) [-Number N] [-Boolean B] [-Symbol Sym] [-Real R] [-PosInt -Pos]))

2
typed-racket-lib/typed-racket/infer/constraints.rkt
View File

@ -2,7 +2,7 @@
(require "../utils/utils.rkt"
(types abbrev union subtype)
unstable/sequence
racket/sequence
"fail.rkt" "signatures.rkt" "constraint-structs.rkt"
racket/match
racket/list)

2
typed-racket-lib/typed-racket/infer/dmap.rkt
View File

@ -4,7 +4,7 @@
"signatures.rkt" "constraint-structs.rkt"
(utils tc-utils)
(contract-req)
unstable/sequence)
racket/sequence)
(import constraints^)
(export dmap^)

2
typed-racket-lib/typed-racket/infer/infer-unit.rkt
View File

@ -25,7 +25,7 @@
(for-syntax
racket/base
syntax/parse)
unstable/sequence
racket/sequence
racket/hash racket/list)
(import dmap^ constraints^)

2
typed-racket-lib/typed-racket/optimizer/dead-code.rkt
View File

@ -1,6 +1,6 @@
#lang racket/base
(require syntax/parse syntax/stx unstable/sequence
(require syntax/parse syntax/stx racket/sequence
racket/syntax
(for-template racket/base)
"../utils/utils.rkt"

2
typed-racket-lib/typed-racket/optimizer/float-complex.rkt
View File

@ -2,7 +2,7 @@
(require syntax/parse syntax/stx racket/promise
racket/syntax racket/match syntax/parse/experimental/specialize
"../utils/utils.rkt" racket/unsafe/ops unstable/sequence
"../utils/utils.rkt" racket/unsafe/ops racket/sequence
(for-template racket/base racket/math racket/flonum racket/unsafe/ops)
(types numeric-tower subtype type-table utils)
(optimizer utils numeric-utils logging float unboxed-tables))

2
typed-racket-lib/typed-racket/optimizer/float.rkt
View File

@ -1,6 +1,6 @@
#lang racket/base
(require syntax/parse unstable/sequence racket/dict racket/flonum racket/promise
(require syntax/parse racket/sequence racket/dict racket/flonum racket/promise
syntax/parse/experimental/specialize
(for-template racket/base racket/flonum racket/unsafe/ops racket/math)
"../utils/utils.rkt"

2
typed-racket-lib/typed-racket/optimizer/hidden-costs.rkt
View File

@ -1,6 +1,6 @@
#lang racket/base
(require syntax/parse unstable/sequence
(require syntax/parse racket/sequence
(for-template racket/base)
"../utils/utils.rkt"
(optimizer utils logging)

2
typed-racket-lib/typed-racket/optimizer/unboxed-let.rkt
View File

@ -1,6 +1,6 @@
#lang racket/base
(require syntax/parse syntax/stx unstable/sequence
(require syntax/parse syntax/stx racket/sequence
syntax/parse/experimental/template
racket/match racket/syntax
racket/promise

2
typed-racket-lib/typed-racket/optimizer/utils.rkt
View File

@ -1,6 +1,6 @@
#lang racket/base
(require racket/match unstable/sequence
(require racket/match racket/sequence
racket/dict syntax/id-table racket/syntax syntax/stx
syntax/parse
syntax/parse/experimental/specialize

2
typed-racket-lib/typed-racket/private/parse-type.rkt
View File

@ -9,7 +9,7 @@
[make-arr* make-arr])
(utils tc-utils stxclass-util literal-syntax-class)
syntax/stx (prefix-in c: (contract-req))
syntax/parse unstable/sequence
syntax/parse racket/sequence
(env tvar-env type-alias-env mvar-env
lexical-env index-env row-constraint-env)
racket/dict

2
typed-racket-lib/typed-racket/private/with-types.rkt
View File

@ -12,7 +12,7 @@
racket/syntax
syntax/flatten-begin
syntax/parse
unstable/sequence
racket/sequence
"../tc-setup.rkt"
"../standard-inits.rkt"
(for-template

2
typed-racket-lib/typed-racket/typecheck/provide-handling.rkt
View File

@ -1,7 +1,7 @@
#lang racket/base
(require "../utils/utils.rkt"
unstable/sequence syntax/id-table racket/dict racket/syntax
racket/sequence syntax/id-table racket/dict racket/syntax
racket/struct-info racket/match syntax/parse
(only-in (private type-contract) include-extra-requires?)
(private syntax-properties)

2
typed-racket-lib/typed-racket/typecheck/tc-app-helper.rkt
View File

@ -1,7 +1,7 @@
#lang racket/base
(require "../utils/utils.rkt"
racket/match unstable/sequence racket/set racket/list
racket/match racket/sequence racket/set racket/list
(only-in racket/list make-list)
(contract-req)
(typecheck check-below tc-subst tc-metafunctions)

2
typed-racket-lib/typed-racket/typecheck/tc-app/tc-app-hetero.rkt
View File

@ -1,7 +1,7 @@
#lang racket/unit
(require "../../utils/utils.rkt"
syntax/parse syntax/stx racket/match unstable/sequence
syntax/parse syntax/stx racket/match racket/sequence
"signatures.rkt"
"utils.rkt"
(types utils abbrev numeric-tower union resolve type-table generalize)

2
typed-racket-lib/typed-racket/typecheck/tc-app/tc-app-lambda.rkt
View File

@ -5,7 +5,7 @@
"utils.rkt"
(prefix-in - (contract-req))
syntax/parse racket/match racket/list
unstable/sequence
racket/sequence
(typecheck signatures find-annotation)
(types abbrev utils generalize type-table)
(private type-annotation syntax-properties)

2
typed-racket-lib/typed-racket/typecheck/tc-app/tc-app-list.rkt
View File

@ -4,7 +4,7 @@
(require "../../utils/utils.rkt"
"signatures.rkt"
"utils.rkt"
syntax/parse syntax/stx racket/match unstable/sequence
syntax/parse syntax/stx racket/match racket/sequence
(typecheck signatures tc-funapp)
(types abbrev utils union substitute)
(rep type-rep)

2
typed-racket-lib/typed-racket/typecheck/tc-app/tc-app-objects.rkt
View File

@ -3,7 +3,7 @@
(require "../../utils/utils.rkt"
"signatures.rkt"
"utils.rkt"
syntax/parse syntax/stx racket/match unstable/sequence
syntax/parse syntax/stx racket/match racket/sequence
racket/format
racket/list
(typecheck signatures)

2
typed-racket-lib/typed-racket/typecheck/tc-app/tc-app-special.rkt
View File

@ -5,7 +5,7 @@
"utils.rkt"
syntax/parse racket/match
syntax/stx
unstable/sequence
racket/sequence
(typecheck signatures tc-funapp)
(types abbrev utils)
(private type-annotation)

2
typed-racket-lib/typed-racket/typecheck/tc-app/tc-app-values.rkt
View File

@ -3,7 +3,7 @@
(require "../../utils/utils.rkt"
"signatures.rkt"
"utils.rkt"
syntax/parse racket/match unstable/sequence
syntax/parse racket/match racket/sequence
(typecheck signatures tc-funapp)
(types utils)

2
typed-racket-lib/typed-racket/typecheck/tc-expr-unit.rkt
View File

@ -17,7 +17,7 @@
syntax/parse
(only-in racket/list split-at)
(typecheck internal-forms tc-envops)
unstable/sequence
racket/sequence
racket/extflonum
;; Needed for current implementation of typechecking letrec-syntax+values
(for-template (only-in racket/base letrec-values)

2
typed-racket-lib/typed-racket/typecheck/tc-lambda-unit.rkt
View File

@ -3,7 +3,7 @@
(require "../utils/utils.rkt"
racket/dict racket/list syntax/parse syntax/stx
racket/match syntax/id-table racket/set
unstable/sequence
racket/sequence
(contract-req)
(rep type-rep object-rep rep-utils)
(rename-in (types abbrev utils union)

2
typed-racket-lib/typed-racket/typecheck/tc-literal.rkt
View File

@ -10,7 +10,7 @@
(utils stxclass-util)
syntax/parse
racket/function
unstable/sequence
racket/sequence
racket/extflonum)
(import)

2
typed-racket-lib/typed-racket/typecheck/tc-toplevel.rkt
View File

@ -2,7 +2,7 @@
(require (rename-in "../utils/utils.rkt" [infer r:infer])
racket/syntax syntax/parse syntax/stx syntax/id-table
racket/list racket/dict racket/match unstable/sequence
racket/list racket/dict racket/match racket/sequence
(prefix-in c: (contract-req))
(rep type-rep)
(types utils abbrev type-table struct-table)

2
typed-racket-lib/typed-racket/types/classes.rkt
View File

@ -14,7 +14,7 @@
racket/match
syntax/parse
syntax/stx
(only-in unstable/sequence in-syntax)
(only-in racket/sequence in-syntax)
(for-template (base-env class-clauses)))
(provide Class:

2
typed-racket-lib/typed-racket/types/printer.rkt
View File

@ -3,7 +3,7 @@
;; This module provides functions for printing types and related
;; data structures such as filters and objects
(require racket/require racket/match unstable/sequence racket/string racket/promise
(require racket/require racket/match racket/sequence racket/string racket/promise
racket/pretty
racket/list
racket/set

2
typed-racket-lib/typed-racket/types/subtype.rkt
View File

@ -6,7 +6,7 @@
(utils tc-utils early-return)
(types utils resolve base-abbrev match-expanders
numeric-tower substitute current-seen prefab)
(for-syntax racket/base syntax/parse unstable/sequence))
(for-syntax racket/base syntax/parse racket/sequence))
(lazy-require
("union.rkt" (Un))

2
typed-racket-lib/typed-racket/utils/mutated-vars.rkt
View File

@ -1,6 +1,6 @@
#lang racket/base
(require racket/dict syntax/parse syntax/id-table unstable/sequence)
(require racket/dict syntax/parse syntax/id-table racket/sequence)
;; find and add to mapping all the set!'ed variables in form
;; if the supplied mapping is mutable, mutates it

2
typed-racket-lib/typed-racket/utils/tc-utils.rkt
View File

@ -9,7 +9,7 @@ don't depend on any other portion of the system
racket/promise racket/string racket/lazy-require
syntax/parse/pre (for-syntax racket/base syntax/parse/pre))
(lazy-require [unstable/sequence (in-slice)])
(lazy-require [racket/sequence (in-slice)])
(provide ;; parameters
current-orig-stx

14
typed-racket-lib/typed-racket/utils/utils.rkt
View File

@ -19,7 +19,8 @@ at least theoretically.
;; misc
list-extend
filter-multiple
syntax-length)
syntax-length
in-sequence-forever)
(define optimize? (make-parameter #t))
(define-for-syntax enable-contracts? (and (getenv "PLT_TR_CONTRACTS") #t))
@ -213,3 +214,14 @@ at least theoretically.
(define (syntax-length stx)
(let ((list (syntax->list stx)))
(and list (length list))))
(define (in-sequence-forever seq val)
(make-do-sequence
(λ ()
(let-values ([(more? gen) (sequence-generate seq)])
(values (λ (e) (if (more?) (gen) val))
(λ (_) #t)
#t
(λ (_) #t)
(λ _ #t)
(λ _ #t))))))