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

fix `call-with-default-reading-parameterization'

Browse Source 
The `read-accept-compiled' parameter is supposed to be #f.
This commit is contained in:
Matthew Flatt 2013-07-07 11:51:25 -06:00
parent b21e0d9132
commit e3c27b2737
4 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/lib/collects/syntax/modread.rkt
View File

@ -9,7 +9,8 @@
(call-with-default-reading-parameterization
(lambda ()
(parameterize ([read-accept-reader #t]
[read-accept-lang #t])
[read-accept-lang #t]
[read-accept-compiled #t])
(thunk)))))
(define (raise-wrong-module-name filename expected-name name)

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

@ -1,5 +1,5 @@
{
SHARED_OK static MZCOMPILED_STRING_FAR unsigned char expr[] = {35,126,9,53,46,51,46,57,48,48,46,52,84,0,0,0,0,0,0,0,0,
SHARED_OK static MZCOMPILED_STRING_FAR unsigned char expr[] = {35,126,9,53,46,51,46,57,48,48,46,53,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,19,0,32,0,37,0,40,0,47,0,54,0,59,0,63,0,67,0,74,
0,83,0,87,0,93,0,107,0,121,0,124,0,130,0,134,0,136,0,147,0,
@ -100,7 +100,7 @@
EVAL_ONE_SIZED_STR((char *)expr, 2051);
}
{
SHARED_OK static MZCOMPILED_STRING_FAR unsigned char expr[] = {35,126,9,53,46,51,46,57,48,48,46,52,84,0,0,0,0,0,0,0,0,
SHARED_OK static MZCOMPILED_STRING_FAR unsigned char expr[] = {35,126,9,53,46,51,46,57,48,48,46,53,84,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,178,0,0,0,1,0,0,8,0,
21,0,26,0,43,0,55,0,77,0,106,0,150,0,156,0,165,0,172,0,187,
0,205,0,217,0,233,0,247,0,13,1,29,1,46,1,63,1,81,1,100,1,
@ -323,7 +323,7 @@
248,22,147,7,197,248,22,161,8,197,196,28,28,248,22,0,23,195,2,249,22,
50,23,196,2,36,11,20,13,159,80,159,36,43,37,26,29,80,159,8,29,44,
37,249,22,33,11,80,159,8,31,43,37,22,187,14,10,22,188,14,10,22,189,
14,10,22,128,15,10,22,191,14,10,22,129,15,10,22,190,14,10,22,130,15,
14,10,22,128,15,10,22,191,14,11,22,129,15,10,22,190,14,10,22,130,15,
10,22,131,15,10,22,132,15,10,22,133,15,10,22,134,15,11,22,135,15,10,
22,185,14,11,247,23,194,1,250,22,171,11,2,8,2,57,23,197,1,86,94,
28,28,248,22,153,15,23,195,2,10,28,248,22,147,7,23,195,2,28,248,22,
@ -371,7 +371,7 @@
63,90,159,39,11,89,161,39,36,11,248,22,174,15,23,197,1,86,95,23,195,
1,23,194,1,249,22,179,15,23,200,1,23,195,1,20,13,159,80,159,36,43,
37,26,29,80,159,8,29,44,37,249,22,33,11,80,159,8,31,43,37,22,187,
14,10,22,188,14,10,22,189,14,10,22,128,15,10,22,191,14,10,22,129,15,
14,10,22,188,14,10,22,189,14,10,22,128,15,10,22,191,14,11,22,129,15,
10,22,190,14,10,22,130,15,10,22,131,15,10,22,132,15,10,22,133,15,10,
22,134,15,11,22,135,15,10,22,185,14,11,247,22,142,6,27,249,22,171,15,
23,197,1,6,11,11,99,111,110,102,105,103,46,114,107,116,100,27,28,248,22,
@ -554,7 +554,7 @@
196,1,23,197,1,23,198,1,23,199,1,28,28,248,22,0,23,194,2,249,22,
50,23,195,2,36,11,20,13,159,80,159,43,43,37,26,29,80,159,8,36,44,
37,249,22,33,11,80,159,8,38,43,37,22,187,14,10,22,188,14,10,22,189,
14,10,22,128,15,10,22,191,14,10,22,129,15,10,22,190,14,10,22,130,15,
14,10,22,128,15,10,22,191,14,11,22,129,15,10,22,190,14,10,22,130,15,
10,22,131,15,10,22,132,15,10,22,133,15,10,22,134,15,11,22,135,15,10,
22,185,14,11,247,23,193,1,250,22,171,11,2,8,2,57,23,196,1,248,22,
9,20,20,96,88,163,36,37,8,45,16,4,8,240,128,129,0,0,8,240,31,
@ -981,7 +981,7 @@
EVAL_ONE_SIZED_STR((char *)expr, 18432);
}
{
SHARED_OK static MZCOMPILED_STRING_FAR unsigned char expr[] = {35,126,9,53,46,51,46,57,48,48,46,52,84,0,0,0,0,0,0,0,0,
SHARED_OK static MZCOMPILED_STRING_FAR unsigned char expr[] = {35,126,9,53,46,51,46,57,48,48,46,53,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,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,
@ -1011,7 +1011,7 @@
EVAL_ONE_SIZED_STR((char *)expr, 557);
}
{
SHARED_OK static MZCOMPILED_STRING_FAR unsigned char expr[] = {35,126,9,53,46,51,46,57,48,48,46,52,84,0,0,0,0,0,0,0,0,
SHARED_OK static MZCOMPILED_STRING_FAR unsigned char expr[] = {35,126,9,53,46,51,46,57,48,48,46,53,84,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,106,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,0,202,0,218,0,236,0,0,1,12,1,28,1,51,1,75,1,87,1,
@ -1493,7 +1493,7 @@
EVAL_ONE_SIZED_STR((char *)expr, 10052);
}
{
SHARED_OK static MZCOMPILED_STRING_FAR unsigned char expr[] = {35,126,9,53,46,51,46,57,48,48,46,52,84,0,0,0,0,0,0,0,0,
SHARED_OK static MZCOMPILED_STRING_FAR unsigned char expr[] = {35,126,9,53,46,51,46,57,48,48,46,53,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,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
racket/src/racket/src/startup.inc
View File

@ -317,7 +317,7 @@
"(read-square-bracket-as-paren #t)"
"(read-curly-brace-as-paren #t)"
"(read-accept-box #t)"
"(read-accept-compiled #t)"
"(read-accept-compiled #f)"
"(read-accept-bar-quote #t)"
"(read-accept-graph #t)"
"(read-decimal-as-inexact #t)"

2
racket/src/racket/src/startup.rktl
View File

@ -376,7 +376,7 @@
[read-square-bracket-as-paren #t]
[read-curly-brace-as-paren #t]
[read-accept-box #t]
[read-accept-compiled #t]
[read-accept-compiled #f]
[read-accept-bar-quote #t]
[read-accept-graph #t]
[read-decimal-as-inexact #t]