From d50969a6639a23bbb704f1f3bac6f69e61a8e140 Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Mon, 5 Jun 2006 22:30:07 +0000 Subject: [PATCH] Corrected bug causing slow startups for drscheme svn: r3239 --- collects/profj/compile.ss | 4 +++- collects/profj/parsers/lexer.ss | 2 +- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/profj/compile.ss b/collects/profj/compile.ss index 1f073dc4b2..7d1b18e7a4 100644 --- a/collects/profj/compile.ss +++ b/collects/profj/compile.ss @@ -119,6 +119,7 @@ ; (list (list package (list (list compiliation-unit)) (list class-record))) (define (compile-files files to-file? level) (when (null? (classpath)) (classpath (get-classpath))) + (coverage? #f) (let ((type-recs (make-object type-records)) (get-class-names (lambda (files) @@ -136,7 +137,8 @@ (and (or (not existing-record) (procedure? existing-record)) (call-with-input-file file - (lambda (port) (compile-java-internal port file type-recs to-file? level)))))) + (lambda (port) + (compile-java-internal port file type-recs to-file? level)))))) files class-names)) (map (lambda (class) (send type-recs get-class-record (cons class package-name) #f (lambda () (error 'internal-error)))) diff --git a/collects/profj/parsers/lexer.ss b/collects/profj/parsers/lexer.ss index 8be788ef4d..85161e6af3 100644 --- a/collects/profj/parsers/lexer.ss +++ b/collects/profj/parsers/lexer.ss @@ -408,7 +408,7 @@ ("dynamic" (cond - ((dynamic?) (syn-val lexeme 'keyword #f start-pos end-pos)) + ((dynamic?) (syn-val lexeme 'prim-type #f start-pos end-pos)) (else (syn-val lexeme 'identifier #f start-pos end-pos)))) ((re:or "check" "expect" "within")