From 338a595a7aeb74dabf641a9aaff3ed807d48108b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 31 Oct 2008 21:12:22 +0000 Subject: [PATCH] fix problem with incrorectly invoking phase -1 relative to base phase 1; sync planet reader with #lang whitespace change svn: r12210 --- collects/planet/lang/reader.ss | 2 +- src/mzscheme/src/module.c | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/planet/lang/reader.ss b/collects/planet/lang/reader.ss index ebe8fda962..3b431349eb 100644 --- a/collects/planet/lang/reader.ss +++ b/collects/planet/lang/reader.ss @@ -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 diff --git a/src/mzscheme/src/module.c b/src/mzscheme/src/module.c index 905cb6b53c..360e0fa16c 100644 --- a/src/mzscheme/src/module.c +++ b/src/mzscheme/src/module.c @@ -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);