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;
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)) {
scheme_read_err(port, stxsrc, line, col, pos, 2, EOF, indentation,
"read: end-of-file after #hx");
return NULL;
}
} 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;
} else {

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

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