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

Temporarily fixes a recompilation problem

Browse Source 
svn: r282
This commit is contained in:
Kathy Gray 2005-06-30 19:22:41 +00:00
parent c3147b6468
commit b6cf15b4b7
3 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
collects/profj/build-info.ss
View File

@ -214,7 +214,8 @@
((beginner) ".bjava")
((intermediate) ".ijava")
((advanced) ".ajava")
((full) ".java")))
((full) ".java")
((dynamic-full) ".djava")))
(file-path (build-path dir (string-append class suffix))))
(cond
((is-import-restricted? class path level) (used-restricted-import class path caller-src))
@ -240,12 +241,18 @@
(send type-recs add-to-records
class-name
(lambda ()
(let* ((location (string-append class suffix))
(ast (call-with-input-file file-path (lambda (p) (parse p location (unbox new-level))))))
(send type-recs set-compilation-location location (build-path dir "compiled"))
(build-info ast (unbox new-level) type-recs 'not_look_up)
(send type-recs get-class-record class-name #f (lambda () 'internal-error "Failed to add record"))
)))
(let ((location (string-append class suffix))
(old-dynamic? (dynamic?)))
(when (eq? 'dynamic-full (unbox new-level))
(dynamic? #t) (set-box! new-level 'full))
(let ((ast (call-with-input-file file-path
(lambda (p) (parse p location (unbox new-level))))))
(send type-recs set-compilation-location location (build-path dir "compiled"))
(build-info ast (unbox new-level) type-recs 'not_look_up)
(send type-recs get-class-record class-name #f
(lambda () 'internal-error "Failed to add record"))
(dynamic? old-dynamic?)
))))
(send type-recs add-require-syntax class-name (build-require-syntax class path dir #t #f)))
(else (file-error 'file (cons class path) caller-src level)))
(when add-to-env (send type-recs add-to-env class path loc))
@ -276,6 +283,7 @@
(and (file-exists? (build-path path (string-append class suffix)))
(set-box! level lang)))))
(or (exists? ".java" 'full)
(exists? ".djava" 'dynamic-full)
(exists? ".bjava" 'beginner)
(exists? ".ijava" 'intermediate)
(exists? ".ajava" 'advanced))))

2
collects/profj/compile.ss
View File

@ -36,7 +36,7 @@
(let-values (((path-base file dir?) (split-path (path->complete-path (build-path name)))))
(let ((compiled-path (build-path path-base "compiled" (path-replace-suffix file ".zo")))
(type-path (build-path path-base "compiled" (path-replace-suffix file ".jinfo"))))
(unless (and (and (file-exists? compiled-path)
(unless #f #;(and (and (file-exists? compiled-path)
(> (file-or-directory-modify-seconds compiled-path)
(file-or-directory-modify-seconds (build-path name))))
(and (file-exists? type-path)

2
collects/profj/to-scheme.ss
View File

@ -1170,7 +1170,7 @@
;create-local-names: (list symbol) -> syntax
(define (create-local-names names)
(make-syntax #f `(define-local-member-name ,@names) #f))
(create-syntax #f `(define-local-member-name ,@names) #f))
;translate-parents: (list name) -> (list syntax)
(define (translate-parents extends)