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

racket/place: keywords as place messages

Browse Source
This commit is contained in:
Matthew Flatt 2013-05-07 14:39:56 -04:00
parent 0b1c0ba13b
commit 7339074741
7 changed files with 157 additions and 124 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scribblings/reference/places.scrbl
View File

@ -318,7 +318,7 @@ messages:
@itemlist[ @itemlist[
@item{@tech{numbers}, @tech{characters}, @tech{booleans}, and @item{@tech{numbers}, @tech{characters}, @tech{booleans}, @tech{keywords}, and
@|void-const|;} @|void-const|;}
@item{@tech{symbols}, where the @racket[eq?]ness of @tech{uninterned} @item{@tech{symbols}, where the @racket[eq?]ness of @tech{uninterned}

2
collects/tests/racket/place-channel.rkt
View File

@ -73,6 +73,7 @@
(not x) (not x)
(not x) (not x)
(void) (void)
'#:b
null null
1/3 1/3
(/ 1 5) (/ 1 5)
@ -100,6 +101,7 @@
(test-place-channel-put-receive sender ch (test-place-channel-put-receive sender ch
(#t #f) (#t #f)
(#f #t) (#f #t)
('#:a '#:b)
(null (void)) (null (void))
((void) null) ((void) null)
((/ 1 2) 1/3) ((/ 1 2) 1/3)

3
doc/release-notes/racket/HISTORY.txt
View File

@ -1,3 +1,6 @@
Version 5.3.4.9
racket/place: allow keywords as place messages
Version 5.3.4.8 Version 5.3.4.8
Add `configure-runtime' submodule support Add `configure-runtime' submodule support
racket/rerequire: added racket/rerequire: added

78
src/racket/src/cstartup.inc
View File

@ -1,43 +1,43 @@
{ {
SHARED_OK static MZCOMPILED_STRING_FAR unsigned char expr[] = {35,126,7,53,46,51,46,52,46,55,84,0,0,0,0,0,0,0,0,0,0, SHARED_OK static MZCOMPILED_STRING_FAR unsigned char expr[] = {35,126,7,53,46,51,46,52,46,57,84,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,51,0,0,0,1,0,0,10,0,14,0, 0,0,0,0,0,0,0,0,0,0,51,0,0,0,1,0,0,10,0,14,0,
19,0,32,0,37,0,40,0,47,0,54,0,59,0,63,0,67,0,74,0,83, 19,0,26,0,29,0,36,0,49,0,53,0,60,0,65,0,69,0,74,0,83,
0,87,0,93,0,107,0,121,0,124,0,130,0,134,0,136,0,147,0,149,0, 0,87,0,93,0,107,0,121,0,124,0,130,0,134,0,136,0,147,0,149,0,
163,0,170,0,192,0,194,0,208,0,19,1,48,1,59,1,70,1,96,1,129, 163,0,170,0,192,0,194,0,208,0,19,1,48,1,59,1,70,1,96,1,129,
1,162,1,224,1,24,2,105,2,161,2,166,2,187,2,84,3,105,3,158,3, 1,162,1,224,1,24,2,105,2,161,2,166,2,187,2,84,3,105,3,158,3,
225,3,114,4,2,5,56,5,67,5,150,5,0,0,113,7,0,0,69,35,37, 225,3,114,4,2,5,56,5,67,5,150,5,0,0,113,7,0,0,69,35,37,
109,105,110,45,115,116,120,29,11,11,11,64,119,104,101,110,72,112,97,114,97, 109,105,110,45,115,116,120,29,11,11,11,64,99,111,110,100,66,108,101,116,114,
109,101,116,101,114,105,122,101,64,99,111,110,100,62,111,114,66,100,101,102,105, 101,99,62,111,114,66,117,110,108,101,115,115,72,112,97,114,97,109,101,116,101,
110,101,66,108,101,116,114,101,99,64,108,101,116,42,63,108,101,116,63,97,110, 114,105,122,101,63,97,110,100,66,100,101,102,105,110,101,64,108,101,116,42,63,
100,66,117,110,108,101,115,115,68,104,101,114,101,45,115,116,120,29,11,11,11, 108,101,116,64,119,104,101,110,68,104,101,114,101,45,115,116,120,29,11,11,11,
65,113,117,111,116,101,29,94,2,15,68,35,37,107,101,114,110,101,108,11,29, 65,113,117,111,116,101,29,94,2,15,68,35,37,107,101,114,110,101,108,11,29,
94,2,15,68,35,37,112,97,114,97,109,122,11,62,105,102,65,98,101,103,105, 94,2,15,68,35,37,112,97,114,97,109,122,11,62,105,102,65,98,101,103,105,
110,63,115,116,120,61,115,70,108,101,116,45,118,97,108,117,101,115,61,120,73, 110,63,115,116,120,61,115,70,108,101,116,45,118,97,108,117,101,115,61,120,73,
108,101,116,114,101,99,45,118,97,108,117,101,115,66,108,97,109,98,100,97,1, 108,101,116,114,101,99,45,118,97,108,117,101,115,66,108,97,109,98,100,97,1,
20,112,97,114,97,109,101,116,101,114,105,122,97,116,105,111,110,45,107,101,121, 20,112,97,114,97,109,101,116,101,114,105,122,97,116,105,111,110,45,107,101,121,
61,118,73,100,101,102,105,110,101,45,118,97,108,117,101,115,97,36,11,8,240, 61,118,73,100,101,102,105,110,101,45,118,97,108,117,101,115,97,36,11,8,240,
198,91,0,0,95,159,2,17,36,36,159,2,16,36,36,159,2,16,36,36,16, 186,87,0,0,95,159,2,17,36,36,159,2,16,36,36,159,2,16,36,36,16,
20,2,3,2,2,2,5,2,2,2,4,2,2,2,6,2,2,2,7,2,2, 20,2,10,2,2,2,7,2,2,2,5,2,2,2,6,2,2,2,3,2,2,
2,8,2,2,2,9,2,2,2,10,2,2,2,11,2,2,2,12,2,2,97, 2,8,2,2,2,9,2,2,2,4,2,2,2,11,2,2,2,12,2,2,97,
37,11,8,240,198,91,0,0,93,159,2,16,36,37,16,2,2,13,161,2,2, 37,11,8,240,186,87,0,0,93,159,2,16,36,37,16,2,2,13,161,2,2,
37,2,13,2,2,2,13,96,11,11,8,240,198,91,0,0,16,0,96,38,11, 37,2,13,2,2,2,13,96,38,11,8,240,186,87,0,0,16,0,96,11,11,
8,240,198,91,0,0,16,0,18,98,64,104,101,114,101,13,16,6,36,2,14, 8,240,186,87,0,0,16,0,18,98,64,104,101,114,101,13,16,6,36,2,14,
2,2,11,11,11,8,32,8,31,8,30,8,29,27,248,22,164,4,195,249,22, 2,2,11,11,11,8,32,8,31,8,30,8,29,27,248,22,164,4,195,249,22,
157,4,80,158,39,36,251,22,89,2,18,248,22,104,199,12,249,22,79,2,19, 157,4,80,158,39,36,251,22,89,2,18,248,22,104,199,12,249,22,79,2,19,
248,22,106,201,27,248,22,164,4,195,249,22,157,4,80,158,39,36,251,22,89, 248,22,106,201,27,248,22,164,4,195,249,22,157,4,80,158,39,36,251,22,89,
2,18,248,22,104,199,249,22,79,2,19,248,22,106,201,12,27,248,22,81,248, 2,18,248,22,104,199,249,22,79,2,19,248,22,106,201,12,27,248,22,81,248,
22,164,4,196,28,248,22,87,193,20,14,159,37,36,37,28,248,22,87,248,22, 22,164,4,196,28,248,22,87,193,20,14,159,37,36,37,28,248,22,87,248,22,
81,194,248,22,132,18,193,249,22,157,4,80,158,39,36,251,22,89,2,18,248, 81,194,248,22,132,18,193,249,22,157,4,80,158,39,36,251,22,89,2,18,248,
22,132,18,199,249,22,79,2,11,248,22,133,18,201,11,18,100,10,13,16,6, 22,132,18,199,249,22,79,2,8,248,22,133,18,201,11,18,100,10,13,16,6,
36,2,14,2,2,11,11,11,8,32,8,31,8,30,8,29,16,4,11,11,2, 36,2,14,2,2,11,11,11,8,32,8,31,8,30,8,29,16,4,11,11,2,
20,3,1,8,101,110,118,49,55,52,54,50,16,4,11,11,2,21,3,1,8, 20,3,1,8,101,110,118,49,55,51,57,52,16,4,11,11,2,21,3,1,8,
101,110,118,49,55,52,54,51,27,248,22,81,248,22,164,4,196,28,248,22,87, 101,110,118,49,55,51,57,53,27,248,22,81,248,22,164,4,196,28,248,22,87,
193,20,14,159,37,36,37,28,248,22,87,248,22,81,194,248,22,132,18,193,249, 193,20,14,159,37,36,37,28,248,22,87,248,22,81,194,248,22,132,18,193,249,
22,157,4,80,158,39,36,250,22,89,2,22,248,22,89,249,22,89,248,22,89, 22,157,4,80,158,39,36,250,22,89,2,22,248,22,89,249,22,89,248,22,89,
2,23,248,22,132,18,201,251,22,89,2,18,2,23,2,23,249,22,79,2,6, 2,23,248,22,132,18,201,251,22,89,2,18,2,23,2,23,249,22,79,2,5,
248,22,133,18,204,18,100,11,13,16,6,36,2,14,2,2,11,11,11,8,32, 248,22,133,18,204,18,100,11,13,16,6,36,2,14,2,2,11,11,11,8,32,
8,31,8,30,8,29,16,4,11,11,2,20,3,1,8,101,110,118,49,55,52, 8,31,8,30,8,29,16,4,11,11,2,20,3,1,8,101,110,118,49,55,51,
54,53,16,4,11,11,2,21,3,1,8,101,110,118,49,55,52,54,54,248,22, 57,55,16,4,11,11,2,21,3,1,8,101,110,118,49,55,51,57,56,248,22,
164,4,193,27,248,22,164,4,194,249,22,79,248,22,89,248,22,80,196,248,22, 164,4,193,27,248,22,164,4,194,249,22,79,248,22,89,248,22,80,196,248,22,
133,18,195,27,248,22,81,248,22,164,4,23,197,1,249,22,157,4,80,158,39, 133,18,195,27,248,22,81,248,22,164,4,23,197,1,249,22,157,4,80,158,39,
36,28,248,22,64,248,22,158,4,248,22,80,23,198,2,27,249,22,2,32,0, 36,28,248,22,64,248,22,158,4,248,22,80,23,198,2,27,249,22,2,32,0,
@ -52,7 +52,7 @@
37,47,11,9,222,33,43,248,22,164,4,248,22,80,201,248,22,133,18,198,27, 37,47,11,9,222,33,43,248,22,164,4,248,22,80,201,248,22,133,18,198,27,
248,22,81,248,22,164,4,196,27,248,22,164,4,248,22,80,195,249,22,157,4, 248,22,81,248,22,164,4,196,27,248,22,164,4,248,22,80,195,249,22,157,4,
80,158,40,36,28,248,22,87,195,250,22,90,2,22,9,248,22,81,199,250,22, 80,158,40,36,28,248,22,87,195,250,22,90,2,22,9,248,22,81,199,250,22,
89,2,10,248,22,89,248,22,80,199,250,22,90,2,9,248,22,133,18,201,248, 89,2,11,248,22,89,248,22,80,199,250,22,90,2,10,248,22,133,18,201,248,
22,81,202,27,248,22,81,248,22,164,4,23,197,1,27,249,22,1,22,93,249, 22,81,202,27,248,22,81,248,22,164,4,23,197,1,27,249,22,1,22,93,249,
22,2,22,164,4,248,22,164,4,248,22,80,199,248,22,184,4,249,22,157,4, 22,2,22,164,4,248,22,164,4,248,22,80,199,248,22,184,4,249,22,157,4,
80,158,41,36,251,22,89,1,22,119,105,116,104,45,99,111,110,116,105,110,117, 80,158,41,36,251,22,89,1,22,119,105,116,104,45,99,111,110,116,105,110,117,
@ -63,13 +63,13 @@
204,27,248,22,81,248,22,164,4,196,28,248,22,87,193,20,14,159,37,36,37, 204,27,248,22,81,248,22,164,4,196,28,248,22,87,193,20,14,159,37,36,37,
249,22,157,4,80,158,39,36,27,248,22,164,4,248,22,80,197,28,249,22,162, 249,22,157,4,80,158,39,36,27,248,22,164,4,248,22,80,197,28,249,22,162,
9,62,61,62,248,22,158,4,248,22,104,196,250,22,89,2,22,248,22,89,249, 9,62,61,62,248,22,158,4,248,22,104,196,250,22,89,2,22,248,22,89,249,
22,89,21,93,2,27,248,22,80,199,250,22,90,2,5,249,22,89,2,27,249, 22,89,21,93,2,27,248,22,80,199,250,22,90,2,3,249,22,89,2,27,249,
22,89,248,22,113,203,2,27,248,22,81,202,251,22,89,2,18,28,249,22,162, 22,89,248,22,113,203,2,27,248,22,81,202,251,22,89,2,18,28,249,22,162,
9,248,22,158,4,248,22,80,200,64,101,108,115,101,10,248,22,132,18,197,250, 9,248,22,158,4,248,22,80,200,64,101,108,115,101,10,248,22,132,18,197,250,
22,90,2,22,9,248,22,133,18,200,249,22,79,2,5,248,22,81,202,99,13, 22,90,2,22,9,248,22,133,18,200,249,22,79,2,3,248,22,81,202,99,13,
16,6,36,2,14,2,2,11,11,11,8,32,8,31,8,30,8,29,16,4,11, 16,6,36,2,14,2,2,11,11,11,8,32,8,31,8,30,8,29,16,4,11,
11,2,20,3,1,8,101,110,118,49,55,52,56,56,16,4,11,11,2,21,3, 11,2,20,3,1,8,101,110,118,49,55,52,50,48,16,4,11,11,2,21,3,
1,8,101,110,118,49,55,52,56,57,18,158,94,10,64,118,111,105,100,8,48, 1,8,101,110,118,49,55,52,50,49,18,158,94,10,64,118,111,105,100,8,48,
27,248,22,81,248,22,164,4,196,249,22,157,4,80,158,39,36,28,248,22,64, 27,248,22,81,248,22,164,4,196,249,22,157,4,80,158,39,36,28,248,22,64,
248,22,158,4,248,22,80,197,250,22,89,2,28,248,22,89,248,22,132,18,199, 248,22,158,4,248,22,80,197,250,22,89,2,28,248,22,89,248,22,132,18,199,
248,22,104,198,27,248,22,158,4,248,22,132,18,197,250,22,89,2,28,248,22, 248,22,104,198,27,248,22,158,4,248,22,132,18,197,250,22,89,2,28,248,22,
@ -82,25 +82,25 @@
11,2,12,36,46,37,16,0,36,16,1,2,13,37,11,11,11,16,0,16,0, 11,2,12,36,46,37,16,0,36,16,1,2,13,37,11,11,11,16,0,16,0,
16,0,36,36,11,12,11,11,16,0,16,0,16,0,36,36,16,11,16,5,11, 16,0,36,36,11,12,11,11,16,0,16,0,16,0,36,36,16,11,16,5,11,
20,15,16,2,20,14,159,36,36,37,80,158,36,36,36,20,114,159,36,16,1, 20,15,16,2,20,14,159,36,36,37,80,158,36,36,36,20,114,159,36,16,1,
2,13,16,1,33,33,10,16,5,2,12,88,163,8,36,37,53,37,9,223,0, 2,13,16,1,33,33,10,16,5,2,6,88,163,8,36,37,53,37,9,223,0,
33,34,36,20,114,159,36,16,1,2,13,16,0,11,16,5,2,3,88,163,8, 33,34,36,20,114,159,36,16,1,2,13,16,0,11,16,5,2,12,88,163,8,
36,37,53,37,9,223,0,33,35,36,20,114,159,36,16,1,2,13,16,0,11, 36,37,53,37,9,223,0,33,35,36,20,114,159,36,16,1,2,13,16,0,11,
16,5,2,11,88,163,8,36,37,53,37,9,223,0,33,36,36,20,114,159,36, 16,5,2,8,88,163,8,36,37,53,37,9,223,0,33,36,36,20,114,159,36,
16,1,2,13,16,1,33,37,11,16,5,2,6,88,163,8,36,37,56,37,9, 16,1,2,13,16,1,33,37,11,16,5,2,5,88,163,8,36,37,56,37,9,
223,0,33,38,36,20,114,159,36,16,1,2,13,16,1,33,39,11,16,5,2, 223,0,33,38,36,20,114,159,36,16,1,2,13,16,1,33,39,11,16,5,2,
10,88,163,8,36,37,58,37,9,223,0,33,42,36,20,114,159,36,16,1,2, 11,88,163,8,36,37,58,37,9,223,0,33,42,36,20,114,159,36,16,1,2,
13,16,0,11,16,5,2,8,88,163,8,36,37,53,37,9,223,0,33,44,36, 13,16,0,11,16,5,2,4,88,163,8,36,37,53,37,9,223,0,33,44,36,
20,114,159,36,16,1,2,13,16,0,11,16,5,2,9,88,163,8,36,37,54, 20,114,159,36,16,1,2,13,16,0,11,16,5,2,10,88,163,8,36,37,54,
37,9,223,0,33,45,36,20,114,159,36,16,1,2,13,16,0,11,16,5,2, 37,9,223,0,33,45,36,20,114,159,36,16,1,2,13,16,0,11,16,5,2,
4,88,163,8,36,37,56,37,9,223,0,33,46,36,20,114,159,36,16,1,2, 7,88,163,8,36,37,56,37,9,223,0,33,46,36,20,114,159,36,16,1,2,
13,16,0,11,16,5,2,5,88,163,8,36,37,58,37,9,223,0,33,47,36, 13,16,0,11,16,5,2,3,88,163,8,36,37,58,37,9,223,0,33,47,36,
20,114,159,36,16,1,2,13,16,1,33,49,11,16,5,2,7,88,163,8,36, 20,114,159,36,16,1,2,13,16,1,33,49,11,16,5,2,9,88,163,8,36,
37,54,37,9,223,0,33,50,36,20,114,159,36,16,1,2,13,16,0,11,16, 37,54,37,9,223,0,33,50,36,20,114,159,36,16,1,2,13,16,0,11,16,
0,94,2,16,2,17,93,2,16,9,9,36,0}; 0,94,2,16,2,17,93,2,16,9,9,36,0};
EVAL_ONE_SIZED_STR((char *)expr, 2049); EVAL_ONE_SIZED_STR((char *)expr, 2049);
} }
{ {
SHARED_OK static MZCOMPILED_STRING_FAR unsigned char expr[] = {35,126,7,53,46,51,46,52,46,55,84,0,0,0,0,0,0,0,0,0,0, SHARED_OK static MZCOMPILED_STRING_FAR unsigned char expr[] = {35,126,7,53,46,51,46,52,46,57,84,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,138,0,0,0,1,0,0,8,0,21,0, 0,0,0,0,0,0,0,0,0,0,138,0,0,0,1,0,0,8,0,21,0,
26,0,43,0,55,0,77,0,106,0,121,0,139,0,151,0,167,0,181,0,203, 26,0,43,0,55,0,77,0,106,0,121,0,139,0,151,0,167,0,181,0,203,
0,219,0,236,0,2,1,13,1,19,1,28,1,35,1,42,1,54,1,70,1, 0,219,0,236,0,2,1,13,1,19,1,28,1,35,1,42,1,54,1,70,1,
@ -391,7 +391,7 @@
195,1,23,197,1,249,22,164,2,195,88,163,8,36,38,48,11,9,223,3,33, 195,1,23,197,1,249,22,164,2,195,88,163,8,36,38,48,11,9,223,3,33,
98,28,197,86,94,20,18,159,11,80,158,42,49,193,20,18,159,11,80,158,42, 98,28,197,86,94,20,18,159,11,80,158,42,49,193,20,18,159,11,80,158,42,
50,196,86,94,20,18,159,11,80,158,42,55,193,20,18,159,11,80,158,42,56, 50,196,86,94,20,18,159,11,80,158,42,55,193,20,18,159,11,80,158,42,56,
196,193,28,193,80,158,38,49,80,158,38,55,248,22,9,20,20,94,88,163,8, 196,193,28,193,80,158,38,49,80,158,38,55,248,22,8,20,20,94,88,163,8,
32,37,8,40,8,240,0,240,94,0,9,224,1,2,33,99,23,195,1,0,7, 32,37,8,40,8,240,0,240,94,0,9,224,1,2,33,99,23,195,1,0,7,
35,114,120,34,47,43,34,28,248,22,147,7,23,195,2,27,249,22,143,16,2, 35,114,120,34,47,43,34,28,248,22,147,7,23,195,2,27,249,22,143,16,2,
101,23,197,2,28,23,193,2,28,249,22,128,4,248,22,103,23,196,2,248,22, 101,23,197,2,28,23,193,2,28,249,22,128,4,248,22,103,23,196,2,248,22,
@ -713,7 +713,7 @@
EVAL_ONE_SIZED_STR((char *)expr, 12805); EVAL_ONE_SIZED_STR((char *)expr, 12805);
} }
{ {
SHARED_OK static MZCOMPILED_STRING_FAR unsigned char expr[] = {35,126,7,53,46,51,46,52,46,55,84,0,0,0,0,0,0,0,0,0,0, SHARED_OK static MZCOMPILED_STRING_FAR unsigned char expr[] = {35,126,7,53,46,51,46,52,46,57,84,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,14,0,0,0,1,0,0,15,0,40,0, 0,0,0,0,0,0,0,0,0,0,14,0,0,0,1,0,0,15,0,40,0,
57,0,75,0,97,0,120,0,140,0,162,0,171,0,180,0,187,0,196,0,203, 57,0,75,0,97,0,120,0,140,0,162,0,171,0,180,0,187,0,196,0,203,
0,0,0,229,1,0,0,74,35,37,112,108,97,99,101,45,115,116,114,117,99, 0,0,0,229,1,0,0,74,35,37,112,108,97,99,101,45,115,116,114,117,99,
@ -743,7 +743,7 @@
EVAL_ONE_SIZED_STR((char *)expr, 555); EVAL_ONE_SIZED_STR((char *)expr, 555);
} }
{ {
SHARED_OK static MZCOMPILED_STRING_FAR unsigned char expr[] = {35,126,7,53,46,51,46,52,46,55,84,0,0,0,0,0,0,0,0,0,0, SHARED_OK static MZCOMPILED_STRING_FAR unsigned char expr[] = {35,126,7,53,46,51,46,52,46,57,84,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,104,0,0,0,1,0,0,7,0,18,0, 0,0,0,0,0,0,0,0,0,0,104,0,0,0,1,0,0,7,0,18,0,
45,0,51,0,60,0,67,0,89,0,102,0,128,0,145,0,167,0,175,0,187, 45,0,51,0,60,0,67,0,89,0,102,0,128,0,145,0,167,0,175,0,187,
0,202,0,218,0,236,0,0,1,12,1,28,1,51,1,63,1,94,1,101,1, 0,202,0,218,0,236,0,0,1,12,1,28,1,51,1,63,1,94,1,101,1,
@ -1219,7 +1219,7 @@
EVAL_ONE_SIZED_STR((char *)expr, 9917); EVAL_ONE_SIZED_STR((char *)expr, 9917);
} }
{ {
SHARED_OK static MZCOMPILED_STRING_FAR unsigned char expr[] = {35,126,7,53,46,51,46,52,46,55,84,0,0,0,0,0,0,0,0,0,0, SHARED_OK static MZCOMPILED_STRING_FAR unsigned char expr[] = {35,126,7,53,46,51,46,52,46,57,84,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,11,0,0,0,1,0,0,10,0,16,0, 0,0,0,0,0,0,0,0,0,0,11,0,0,0,1,0,0,10,0,16,0,
29,0,44,0,58,0,78,0,90,0,104,0,118,0,170,0,0,0,99,1,0, 29,0,44,0,58,0,78,0,90,0,104,0,118,0,170,0,0,0,99,1,0,
0,69,35,37,98,117,105,108,116,105,110,65,113,117,111,116,101,29,94,2,2, 0,69,35,37,98,117,105,108,116,105,110,65,113,117,111,116,101,29,94,2,2,
@ -1227,7 +1227,7 @@
114,107,11,29,94,2,2,68,35,37,112,97,114,97,109,122,11,29,94,2,2, 114,107,11,29,94,2,2,68,35,37,112,97,114,97,109,122,11,29,94,2,2,
74,35,37,112,108,97,99,101,45,115,116,114,117,99,116,11,29,94,2,2,66, 74,35,37,112,108,97,99,101,45,115,116,114,117,99,116,11,29,94,2,2,66,
35,37,98,111,111,116,11,29,94,2,2,68,35,37,101,120,112,111,98,115,11, 35,37,98,111,111,116,11,29,94,2,2,68,35,37,101,120,112,111,98,115,11,
29,94,2,2,68,35,37,107,101,114,110,101,108,11,97,36,11,8,240,243,93, 29,94,2,2,68,35,37,107,101,114,110,101,108,11,97,36,11,8,240,231,89,
0,0,100,159,2,3,36,36,159,2,4,36,36,159,2,5,36,36,159,2,6, 0,0,100,159,2,3,36,36,159,2,4,36,36,159,2,5,36,36,159,2,6,
36,36,159,2,7,36,36,159,2,8,36,36,159,2,9,36,36,159,2,9,36, 36,36,159,2,7,36,36,159,2,8,36,36,159,2,9,36,36,159,2,9,36,
36,16,0,159,36,20,114,159,36,16,1,11,16,0,20,26,145,9,2,1,2, 36,16,0,159,36,20,114,159,36,16,1,11,16,0,20,26,145,9,2,1,2,

27
src/racket/src/place.c
View File

@ -1424,6 +1424,33 @@ static Scheme_Object *shallow_types_copy(Scheme_Object *so, Scheme_Hash_Table *h
abort(); abort();
} }
break; break;
case scheme_keyword_type:
if (mode == mzPDC_COPY) {
new_so = scheme_make_sized_offset_byte_string((char *)so, SCHEME_SYMSTR_OFFSET(so), SCHEME_SYM_LEN(so), 1);
new_so->type = scheme_serialized_keyword_type;
} else if (mode == mzPDC_DIRECT_UNCOPY) {
char *str, buf[64];
intptr_t len;
len = SCHEME_SYM_LEN(so);
if (len < 64)
str = buf;
else
str = (char *)scheme_malloc_atomic(len);
memcpy(str, SCHEME_SYM_VAL(so), len);
new_so = scheme_intern_exact_keyword(str, len);
} else if (mode != mzPDC_CHECK) {
scheme_log_abort("encountered keyword in bad mode");
abort();
}
break;
case scheme_serialized_keyword_type:
if ((mode == mzPDC_UNCOPY) || (mode == mzPDC_DESER)) {
new_so = scheme_intern_exact_keyword(SCHEME_BYTE_STR_VAL(so), SCHEME_BYTE_STRLEN_VAL(so));
} else if (mode != mzPDC_CLEAN) {
scheme_log_abort("encountered serialized keyword in bad mode");
abort();
}
break;
case scheme_fxvector_type: case scheme_fxvector_type:
/* not allocated as shared, since that's covered above */ /* not allocated as shared, since that's covered above */
if (copy_mode) { if (copy_mode) {

4
src/racket/src/schvers.h
View File

@ -13,12 +13,12 @@
consistently.) consistently.)
*/ */
#define MZSCHEME_VERSION "5.3.4.8" #define MZSCHEME_VERSION "5.3.4.9"
#define MZSCHEME_VERSION_X 5 #define MZSCHEME_VERSION_X 5
#define MZSCHEME_VERSION_Y 3 #define MZSCHEME_VERSION_Y 3
#define MZSCHEME_VERSION_Z 4 #define MZSCHEME_VERSION_Z 4
#define MZSCHEME_VERSION_W 8 #define MZSCHEME_VERSION_W 9
#define MZSCHEME_VERSION_MAJOR ((MZSCHEME_VERSION_X * 100) + MZSCHEME_VERSION_Y) #define MZSCHEME_VERSION_MAJOR ((MZSCHEME_VERSION_X * 100) + MZSCHEME_VERSION_Y)
#define MZSCHEME_VERSION_MINOR ((MZSCHEME_VERSION_Z * 1000) + MZSCHEME_VERSION_W) #define MZSCHEME_VERSION_MINOR ((MZSCHEME_VERSION_Z * 1000) + MZSCHEME_VERSION_W)

165
src/racket/src/stypes.h
View File

@ -199,92 +199,93 @@ enum {
scheme_place_bi_channel_type, /* 175 */ scheme_place_bi_channel_type, /* 175 */
scheme_once_used_type, /* 176 */ scheme_once_used_type, /* 176 */
scheme_serialized_symbol_type, /* 177 */ scheme_serialized_symbol_type, /* 177 */
scheme_serialized_structure_type, /* 178 */ scheme_serialized_keyword_type, /* 178 */
scheme_fsemaphore_type, /* 179 */ scheme_serialized_structure_type, /* 179 */
scheme_serialized_tcp_fd_type, /* 180 */ scheme_fsemaphore_type, /* 180 */
scheme_serialized_file_fd_type, /* 181 */ scheme_serialized_tcp_fd_type, /* 181 */
scheme_port_closed_evt_type, /* 182 */ scheme_serialized_file_fd_type, /* 182 */
scheme_proc_shape_type, /* 183 */ scheme_port_closed_evt_type, /* 183 */
scheme_struct_proc_shape_type, /* 184 */ scheme_proc_shape_type, /* 184 */
scheme_phantom_bytes_type, /* 185 */ scheme_struct_proc_shape_type, /* 185 */
scheme_environment_variables_type, /* 186 */ scheme_phantom_bytes_type, /* 186 */
scheme_environment_variables_type, /* 187 */
#ifdef MZTAG_REQUIRED #ifdef MZTAG_REQUIRED
_scheme_last_normal_type_, /* 187 */ _scheme_last_normal_type_, /* 188 */
scheme_rt_weak_array, /* 188 */ scheme_rt_weak_array, /* 189 */
scheme_rt_comp_env, /* 189 */ scheme_rt_comp_env, /* 190 */
scheme_rt_constant_binding, /* 190 */ scheme_rt_constant_binding, /* 191 */
scheme_rt_resolve_info, /* 191 */ scheme_rt_resolve_info, /* 192 */
scheme_rt_unresolve_info, /* 192 */ scheme_rt_unresolve_info, /* 193 */
scheme_rt_optimize_info, /* 193 */ scheme_rt_optimize_info, /* 194 */
scheme_rt_compile_info, /* 194 */ scheme_rt_compile_info, /* 195 */
scheme_rt_cont_mark, /* 195 */ scheme_rt_cont_mark, /* 196 */
scheme_rt_saved_stack, /* 196 */ scheme_rt_saved_stack, /* 197 */
scheme_rt_reply_item, /* 197 */ scheme_rt_reply_item, /* 198 */
scheme_rt_closure_info, /* 198 */ scheme_rt_closure_info, /* 199 */
scheme_rt_overflow, /* 199 */ scheme_rt_overflow, /* 200 */
scheme_rt_overflow_jmp, /* 200 */ scheme_rt_overflow_jmp, /* 201 */
scheme_rt_meta_cont, /* 201 */ scheme_rt_meta_cont, /* 202 */
scheme_rt_dyn_wind_cell, /* 202 */ scheme_rt_dyn_wind_cell, /* 203 */
scheme_rt_dyn_wind_info, /* 203 */ scheme_rt_dyn_wind_info, /* 204 */
scheme_rt_dyn_wind, /* 204 */ scheme_rt_dyn_wind, /* 205 */
scheme_rt_dup_check, /* 205 */ scheme_rt_dup_check, /* 206 */
scheme_rt_thread_memory, /* 206 */ scheme_rt_thread_memory, /* 207 */
scheme_rt_input_file, /* 207 */ scheme_rt_input_file, /* 208 */
scheme_rt_input_fd, /* 208 */ scheme_rt_input_fd, /* 209 */
scheme_rt_oskit_console_input, /* 209 */ scheme_rt_oskit_console_input, /* 210 */
scheme_rt_tested_input_file, /* 210 */ scheme_rt_tested_input_file, /* 211 */
scheme_rt_tested_output_file, /* 211 */ scheme_rt_tested_output_file, /* 212 */
scheme_rt_indexed_string, /* 212 */ scheme_rt_indexed_string, /* 213 */
scheme_rt_output_file, /* 213 */ scheme_rt_output_file, /* 214 */
scheme_rt_load_handler_data, /* 214 */ scheme_rt_load_handler_data, /* 215 */
scheme_rt_pipe, /* 215 */ scheme_rt_pipe, /* 216 */
scheme_rt_beos_process, /* 216 */ scheme_rt_beos_process, /* 217 */
scheme_rt_system_child, /* 217 */ scheme_rt_system_child, /* 218 */
scheme_rt_tcp, /* 218 */ scheme_rt_tcp, /* 219 */
scheme_rt_write_data, /* 219 */ scheme_rt_write_data, /* 220 */
scheme_rt_tcp_select_info, /* 220 */ scheme_rt_tcp_select_info, /* 221 */
scheme_rt_param_data, /* 221 */ scheme_rt_param_data, /* 222 */
scheme_rt_will, /* 222 */ scheme_rt_will, /* 223 */
scheme_rt_linker_name, /* 223 */ scheme_rt_linker_name, /* 224 */
scheme_rt_param_map, /* 224 */ scheme_rt_param_map, /* 225 */
scheme_rt_finalization, /* 225 */ scheme_rt_finalization, /* 226 */
scheme_rt_finalizations, /* 226 */ scheme_rt_finalizations, /* 227 */
scheme_rt_cpp_object, /* 227 */ scheme_rt_cpp_object, /* 228 */
scheme_rt_cpp_array_object, /* 228 */ scheme_rt_cpp_array_object, /* 229 */
scheme_rt_stack_object, /* 229 */ scheme_rt_stack_object, /* 230 */
scheme_rt_preallocated_object, /* 230 */ scheme_rt_preallocated_object, /* 231 */
scheme_thread_hop_type, /* 231 */ scheme_thread_hop_type, /* 232 */
scheme_rt_srcloc, /* 232 */ scheme_rt_srcloc, /* 233 */
scheme_rt_evt, /* 233 */ scheme_rt_evt, /* 234 */
scheme_rt_syncing, /* 234 */ scheme_rt_syncing, /* 235 */
scheme_rt_comp_prefix, /* 235 */ scheme_rt_comp_prefix, /* 236 */
scheme_rt_user_input, /* 236 */ scheme_rt_user_input, /* 237 */
scheme_rt_user_output, /* 237 */ scheme_rt_user_output, /* 238 */
scheme_rt_compact_port, /* 238 */ scheme_rt_compact_port, /* 239 */
scheme_rt_read_special_dw, /* 239 */ scheme_rt_read_special_dw, /* 240 */
scheme_rt_regwork, /* 240 */ scheme_rt_regwork, /* 241 */
scheme_rt_rx_lazy_string, /* 241 */ scheme_rt_rx_lazy_string, /* 242 */
scheme_rt_buf_holder, /* 242 */ scheme_rt_buf_holder, /* 243 */
scheme_rt_parameterization, /* 243 */ scheme_rt_parameterization, /* 244 */
scheme_rt_print_params, /* 244 */ scheme_rt_print_params, /* 245 */
scheme_rt_read_params, /* 245 */ scheme_rt_read_params, /* 246 */
scheme_rt_native_code, /* 246 */ scheme_rt_native_code, /* 247 */
scheme_rt_native_code_plus_case, /* 247 */ scheme_rt_native_code_plus_case, /* 248 */
scheme_rt_jitter_data, /* 248 */ scheme_rt_jitter_data, /* 249 */
scheme_rt_module_exports, /* 249 */ scheme_rt_module_exports, /* 250 */
scheme_rt_delay_load_info, /* 250 */ scheme_rt_delay_load_info, /* 251 */
scheme_rt_marshal_info, /* 251 */ scheme_rt_marshal_info, /* 252 */
scheme_rt_unmarshal_info, /* 252 */ scheme_rt_unmarshal_info, /* 253 */
scheme_rt_runstack, /* 253 */ scheme_rt_runstack, /* 254 */
scheme_rt_sfs_info, /* 254 */ scheme_rt_sfs_info, /* 255 */
scheme_rt_validate_clearing, /* 255 */ scheme_rt_validate_clearing, /* 256 */
scheme_rt_avl_node, /* 256 */ scheme_rt_avl_node, /* 257 */
scheme_rt_lightweight_cont, /* 257 */ scheme_rt_lightweight_cont, /* 258 */
scheme_rt_export_info, /* 258 */ scheme_rt_export_info, /* 259 */
scheme_rt_cont_jmp, /* 259 */ scheme_rt_cont_jmp, /* 260 */
#endif #endif
_scheme_last_type_ _scheme_last_type_