Skip to content

Commit ced7cf9

Browse files
jackfirthjackfirth
committed
Move alias to separate module
1 parent a2f616d commit ced7cf9

File tree

3 files changed

+114
-103
lines changed

3 files changed

+114
-103
lines changed

‎typed-racket-compatibility/typed/scheme/base.rkt‎

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -23,11 +23,13 @@
2323
require-typed-signature)
2424
(require-typed-struct-legacy require-typed-struct)
2525
(require/typed-legacy require/typed))
26+
typed-racket/base-env/prims-deprecated
2627
typed-racket/base-env/base-types
2728
(except-in typed-racket/base-env/base-types-extra Distinction)
2829
(for-syntax (except-in typed-racket/base-env/base-types-extra Distinction)))
2930
(provide (rename-out [define-type-alias define-type])
3031
(all-from-out typed-racket/base-env/prims)
32+
(all-from-out typed-racket/base-env/prims-deprecated)
3133
(all-from-out typed-racket/base-env/base-types)
3234
(all-from-out typed-racket/base-env/base-types-extra)
3335
assert defined? with-type for for*

‎typed-racket-lib/typed-racket/base-env/prims-deprecated.rkt‎

Lines changed: 108 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,108 @@
1+
#lang racket/base
2+
3+
4+
(provide case-lambda:
5+
struct:
6+
define-struct:
7+
define-typed-struct
8+
define-struct/exec:
9+
for:
10+
for/and:
11+
for/first:
12+
for/flvector:
13+
for/extflvector:
14+
for/fold:
15+
for/foldr:
16+
for/hash:
17+
for/hasheq:
18+
for/hasheqv:
19+
for/hashalw:
20+
for/last:
21+
for/list:
22+
for/lists:
23+
for/set:
24+
for/or:
25+
for/product:
26+
for/sum:
27+
for/vector:
28+
for/and:
29+
for*/first:
30+
for*/flvector:
31+
for*/extflvector:
32+
for*/fold:
33+
for*/foldr:
34+
for*/hash:
35+
for*/hasheq:
36+
for*/hasheqv:
37+
for*/hashalw:
38+
for*/last:
39+
for*/list:
40+
for*/lists:
41+
for*/set:
42+
for*/or:
43+
for*/product:
44+
for*/sum:
45+
for*/vector:
46+
do:
47+
define-type-alias
48+
define-typed-struct
49+
Un
50+
mu
51+
Tuple
52+
Parameter
53+
Pair)
54+
55+
56+
(require racket/deprecation
57+
typed-racket/base-env/prims)
58+
59+
60+
(define-deprecated-alias define-type-alias define-type)
61+
(define-deprecated-alias case-lambda: case-lambda)
62+
(define-deprecated-alias struct: struct)
63+
(define-deprecated-alias define-struct: define-struct)
64+
(define-deprecated-alias define-typed-struct define-struct)
65+
(define-deprecated-alias define-struct/exec: define-struct/exec)
66+
(define-deprecated-alias for: for)
67+
(define-deprecated-alias for/and: for/and)
68+
(define-deprecated-alias for/first: for/first)
69+
(define-deprecated-alias for/flvector: for/flvector)
70+
(define-deprecated-alias for/extflvector: for/extflvector)
71+
(define-deprecated-alias for/fold: for/fold)
72+
(define-deprecated-alias for/foldr: for/foldr)
73+
(define-deprecated-alias for/hash: for/hash)
74+
(define-deprecated-alias for/hasheq: for/hasheq)
75+
(define-deprecated-alias for/hasheqv: for/hasheqv)
76+
(define-deprecated-alias for/hashalw: for/hashalw)
77+
(define-deprecated-alias for/last: for/last)
78+
(define-deprecated-alias for/list: for/list)
79+
(define-deprecated-alias for/lists: for/lists)
80+
(define-deprecated-alias for/set: for/set)
81+
(define-deprecated-alias for/or: for/or)
82+
(define-deprecated-alias for/product: for/product)
83+
(define-deprecated-alias for/sum: for/sum)
84+
(define-deprecated-alias for/vector: for/vector)
85+
(define-deprecated-alias for*/and: for/and)
86+
(define-deprecated-alias for*/first: for*/first)
87+
(define-deprecated-alias for*/flvector: for*/flvector)
88+
(define-deprecated-alias for*/extflvector: for*/extflvector)
89+
(define-deprecated-alias for*/fold: for*/fold)
90+
(define-deprecated-alias for*/foldr: for*/foldr)
91+
(define-deprecated-alias for*/hash: for*/hash)
92+
(define-deprecated-alias for*/hasheq: for*/hasheq)
93+
(define-deprecated-alias for*/hasheqv: for*/hasheqv)
94+
(define-deprecated-alias for*/hashalw: for*/hashalw)
95+
(define-deprecated-alias for*/last: for*/last)
96+
(define-deprecated-alias for*/list: for*/list)
97+
(define-deprecated-alias for*/lists: for*/lists)
98+
(define-deprecated-alias for*/set: for*/set)
99+
(define-deprecated-alias for*/or: for*/or)
100+
(define-deprecated-alias for*/product: for*/product)
101+
(define-deprecated-alias for*/sum: for*/sum)
102+
(define-deprecated-alias for*/vector: for*/vector)
103+
(define-deprecated-alias do: do)
104+
(define-deprecated-alias Un U)
105+
(define-deprecated-alias mu Rec)
106+
(define-deprecated-alias Tuple List)
107+
(define-deprecated-alias Parameter Parameterof)
108+
(define-deprecated-alias Pair Pairof)

‎typed-racket-lib/typed/racket/base.rkt‎

Lines changed: 4 additions & 103 deletions
Original file line numberDiff line numberDiff line change
@@ -15,116 +15,17 @@
1515
(basics #%module-begin #%top-interaction)
1616
(ts-except with-type-shallow with-type-optional))
1717

18-
(require racket/deprecation
19-
typed-racket/base-env/extra-procs
18+
(require typed-racket/base-env/extra-procs
2019
(except-in typed-racket/base-env/prims
2120
require-typed-struct-legacy
2221
require/typed-legacy
2322
require-typed-signature)
23+
typed-racket/base-env/prims-deprecated
2424
typed-racket/base-env/base-types
2525
(except-in typed-racket/base-env/base-types-extra Distinction Unit))
2626
(provide (all-from-out typed-racket/base-env/prims)
27+
(all-from-out typed-racket/base-env/prims-deprecated)
2728
(all-from-out typed-racket/base-env/base-types)
2829
(all-from-out typed-racket/base-env/base-types-extra)
29-
assert defined? with-type for for*
30-
case-lambda:
31-
struct:
32-
define-struct:
33-
define-typed-struct
34-
define-struct/exec:
35-
for:
36-
for/and:
37-
for/first:
38-
for/flvector:
39-
for/extflvector:
40-
for/fold:
41-
for/foldr:
42-
for/hash:
43-
for/hasheq:
44-
for/hasheqv:
45-
for/hashalw:
46-
for/last:
47-
for/list:
48-
for/lists:
49-
for/set:
50-
for/or:
51-
for/product:
52-
for/sum:
53-
for/vector:
54-
for/and:
55-
for*/first:
56-
for*/flvector:
57-
for*/extflvector:
58-
for*/fold:
59-
for*/foldr:
60-
for*/hash:
61-
for*/hasheq:
62-
for*/hasheqv:
63-
for*/hashalw:
64-
for*/last:
65-
for*/list:
66-
for*/lists:
67-
for*/set:
68-
for*/or:
69-
for*/product:
70-
for*/sum:
71-
for*/vector:
72-
do:
73-
define-type-alias
74-
define-typed-struct
75-
Un
76-
mu
77-
Tuple
78-
Parameter
79-
Pair)
30+
assert defined? with-type for for*)
8031

81-
82-
(define-deprecated-alias define-type-alias define-type)
83-
(define-deprecated-alias case-lambda: case-lambda)
84-
(define-deprecated-alias struct: struct)
85-
(define-deprecated-alias define-struct: define-struct)
86-
(define-deprecated-alias define-typed-struct define-struct)
87-
(define-deprecated-alias define-struct/exec: define-struct/exec)
88-
(define-deprecated-alias for: for)
89-
(define-deprecated-alias for/and: for/and)
90-
(define-deprecated-alias for/first: for/first)
91-
(define-deprecated-alias for/flvector: for/flvector)
92-
(define-deprecated-alias for/extflvector: for/extflvector)
93-
(define-deprecated-alias for/fold: for/fold)
94-
(define-deprecated-alias for/foldr: for/foldr)
95-
(define-deprecated-alias for/hash: for/hash)
96-
(define-deprecated-alias for/hasheq: for/hasheq)
97-
(define-deprecated-alias for/hasheqv: for/hasheqv)
98-
(define-deprecated-alias for/hashalw: for/hashalw)
99-
(define-deprecated-alias for/last: for/last)
100-
(define-deprecated-alias for/list: for/list)
101-
(define-deprecated-alias for/lists: for/lists)
102-
(define-deprecated-alias for/set: for/set)
103-
(define-deprecated-alias for/or: for/or)
104-
(define-deprecated-alias for/product: for/product)
105-
(define-deprecated-alias for/sum: for/sum)
106-
(define-deprecated-alias for/vector: for/vector)
107-
(define-deprecated-alias for*/and: for/and)
108-
(define-deprecated-alias for*/first: for*/first)
109-
(define-deprecated-alias for*/flvector: for*/flvector)
110-
(define-deprecated-alias for*/extflvector: for*/extflvector)
111-
(define-deprecated-alias for*/fold: for*/fold)
112-
(define-deprecated-alias for*/foldr: for*/foldr)
113-
(define-deprecated-alias for*/hash: for*/hash)
114-
(define-deprecated-alias for*/hasheq: for*/hasheq)
115-
(define-deprecated-alias for*/hasheqv: for*/hasheqv)
116-
(define-deprecated-alias for*/hashalw: for*/hashalw)
117-
(define-deprecated-alias for*/last: for*/last)
118-
(define-deprecated-alias for*/list: for*/list)
119-
(define-deprecated-alias for*/lists: for*/lists)
120-
(define-deprecated-alias for*/set: for*/set)
121-
(define-deprecated-alias for*/or: for*/or)
122-
(define-deprecated-alias for*/product: for*/product)
123-
(define-deprecated-alias for*/sum: for*/sum)
124-
(define-deprecated-alias for*/vector: for*/vector)
125-
(define-deprecated-alias do: do)
126-
(define-deprecated-alias Un U)
127-
(define-deprecated-alias mu Rec)
128-
(define-deprecated-alias Tuple List)
129-
(define-deprecated-alias Parameter Parameterof)
130-
(define-deprecated-alias Pair Pairof)

0 commit comments

Comments
 (0)