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

fixed #honu

Browse Source 
svn: r90
This commit is contained in:
Matthew Flatt 2005-06-12 10:59:16 +00:00
parent ed5aae8307
commit 7bb5af8933
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mzscheme/src/read.c
View File

@ -1344,14 +1344,14 @@ read_inner_inner(Scheme_Object *port, Scheme_Object *stxsrc, Scheme_Hash_Table *
params_copy.honu_mode = 1; params_copy.honu_mode = 1;
if (honu == 1) { if (honu == 1) {
v = read_inner(port, stxsrc, ht, indentation, params, 0); v = read_inner(port, stxsrc, ht, indentation, &params_copy, 0);
if (SCHEME_EOFP(v)) { if (SCHEME_EOFP(v)) {
scheme_read_err(port, stxsrc, line, col, pos, 2, EOF, indentation, scheme_read_err(port, stxsrc, line, col, pos, 2, EOF, indentation,
"read: end-of-file after #hx"); "read: end-of-file after #hx");
return NULL; return NULL;
} }
} else } else
v = read_list(port, stxsrc, line, col, pos, EOF, mz_shape_cons, 0, ht, indentation, params); v = read_list(port, stxsrc, line, col, pos, EOF, mz_shape_cons, 0, ht, indentation, &params_copy);
return v; return v;
} else { } else {

4
src/mzscheme/src/startup.inc
View File

@ -3103,7 +3103,7 @@
"(parameterize((current-namespace n))" "(parameterize((current-namespace n))"
"(namespace-attach-module orig '#%r5rs)" "(namespace-attach-module orig '#%r5rs)"
"(namespace-require '#%r5rs)" "(namespace-require '#%r5rs)"
"(namespace-transformer-require '(rename mzscheme syntax-rules syntax-rules))" "(namespace-transformer-require '(only mzscheme syntax-rules))"
"(unless stx-only?" "(unless stx-only?"
"(for-each" "(for-each"
"(lambda(n)" "(lambda(n)"
@ -3236,7 +3236,7 @@
" #%app #%datum #%top))" " #%app #%datum #%top))"
); );
EVAL_ONE_STR( EVAL_ONE_STR(
"(require(rename mzscheme namespace-require/copy namespace-require/copy))" "(require(only mzscheme namespace-require/copy))"
); );
EVAL_ONE_STR( EVAL_ONE_STR(
"(begin" "(begin"