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

More type names

Browse Source 
Fixes PR 10646 (as it evolved)

svn: r17533
This commit is contained in:
Sam Tobin-Hochstadt 2010-01-07 16:48:05 +00:00
parent f7f6b972fd
commit b71b196764
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/typed-scheme/private/base-types-new.ss
View File

@ -44,3 +44,6 @@
[MPair (-poly (a b) (-mpair a b))] [MPair (-poly (a b) (-mpair a b))]
[Boxof (-poly (a) (make-Box a))] [Boxof (-poly (a) (make-Box a))]
[Continuation-Mark-Set -Cont-Mark-Set] [Continuation-Mark-Set -Cont-Mark-Set]
[False (-val #f)]
[True (-val #t)]
[Null (-val null)]

3
collects/typed-scheme/private/base-types.ss
View File

@ -43,3 +43,6 @@
[Pair (-poly (a b) (-pair a b))] [Pair (-poly (a b) (-pair a b))]
[Boxof (-poly (a) (make-Box a))] [Boxof (-poly (a) (make-Box a))]
[Continuation-Mark-Set -Cont-Mark-Set] [Continuation-Mark-Set -Cont-Mark-Set]
[False (-val #f)]
[True (-val #t)]
[Null (-val null)]