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

fix problem with incrorectly invoking phase -1 relative to base phase 1; sync planet reader with #lang whitespace change

Browse Source 
svn: r12210
This commit is contained in:
Matthew Flatt 2008-10-31 21:12:22 +00:00
parent ac0888ee88
commit 338a595a7a
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/planet/lang/reader.ss
View File

@ -9,7 +9,7 @@
get-info)
(define (planet-get in lang-mod export-sym src line col pos mk-fail-thunk)
(let ([spec (regexp-try-match #px"^(.*?)(\\s|$)" in)]
(let ([spec (regexp-try-match #px"^\\s(.*?)(\\s|$)" in)]
[bad (lambda (str eof?)
((if eof?
raise-read-eof-error

2
src/mzscheme/src/module.c
View File

@ -3919,7 +3919,7 @@ static void start_module(Scheme_Module *m, Scheme_Env *env, int restart,
return;
}
} else if (env->phase < base_phase) {
if (env->phase == -1) {
if (env->phase == base_phase - 1) {
expstart_module(menv, env, restart, eval_exp, eval_run, base_phase);
}
show_done("nrn-", menv, eval_exp, eval_run);