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

Corrected bug causing slow startups for drscheme

Browse Source 
svn: r3239
This commit is contained in:
Kathy Gray 2006-06-05 22:30:07 +00:00
parent 8cd79695f1
commit d50969a663
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/profj/compile.ss
View File

@ -119,6 +119,7 @@
; (list (list package (list (list compiliation-unit)) (list class-record))) ; (list (list package (list (list compiliation-unit)) (list class-record)))
(define (compile-files files to-file? level) (define (compile-files files to-file? level)
(when (null? (classpath)) (classpath (get-classpath))) (when (null? (classpath)) (classpath (get-classpath)))
(coverage? #f)
(let ((type-recs (make-object type-records)) (let ((type-recs (make-object type-records))
(get-class-names (get-class-names
(lambda (files) (lambda (files)
@ -136,7 +137,8 @@
(and (or (not existing-record) (and (or (not existing-record)
(procedure? existing-record)) (procedure? existing-record))
(call-with-input-file file (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)) files class-names))
(map (lambda (class) (map (lambda (class)
(send type-recs get-class-record (cons class package-name) #f (lambda () (error 'internal-error)))) (send type-recs get-class-record (cons class package-name) #f (lambda () (error 'internal-error))))

2
collects/profj/parsers/lexer.ss
View File

@ -408,7 +408,7 @@
("dynamic" ("dynamic"
(cond (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)))) (else (syn-val lexeme 'identifier #f start-pos end-pos))))
((re:or "check" "expect" "within") ((re:or "check" "expect" "within")